(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    214638,       6551]
NotebookOptionsPosition[    206898,       6285]
NotebookOutlinePosition[    207403,       6305]
CellTagsIndexPosition[    207360,       6302]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"m", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"b", "\[Conjugate]"}], ",", "d"}], "}"}]}], "}"}]}], ";", 
  RowBox[{"Inverse", "[", "m", "]"}]}]], "Input",
 CellChangeTimes->{{3.508506951392488*^9, 3.508506970778386*^9}, {
  3.508590933776959*^9, 3.508590941328328*^9}, {3.5085992285512857`*^9, 
  3.508599228983726*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     FractionBox["d", 
      RowBox[{
       RowBox[{"a", " ", "d"}], "-", 
       RowBox[{"b", " ", 
        RowBox[{"Conjugate", "[", "b", "]"}]}]}]], ",", 
     RowBox[{"-", 
      FractionBox["b", 
       RowBox[{
        RowBox[{"a", " ", "d"}], "-", 
        RowBox[{"b", " ", 
         RowBox[{"Conjugate", "[", "b", "]"}]}]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{"Conjugate", "[", "b", "]"}], 
       RowBox[{
        RowBox[{"a", " ", "d"}], "-", 
        RowBox[{"b", " ", 
         RowBox[{"Conjugate", "[", "b", "]"}]}]}]]}], ",", 
     FractionBox["a", 
      RowBox[{
       RowBox[{"a", " ", "d"}], "-", 
       RowBox[{"b", " ", 
        RowBox[{"Conjugate", "[", "b", "]"}]}]}]]}], "}"}]}], "}"}]], "Output",\

 CellChangeTimes->{3.508507031595151*^9, 3.508590942067025*^9, 
  3.508599229988595*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.508506983219102*^9, 3.508506994419237*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      FractionBox["1", 
       RowBox[{"a", "-", 
        RowBox[{"b", " ", 
         RowBox[{"Conjugate", "[", "b", "]"}]}]}]], 
      RowBox[{"-", 
       FractionBox["b", 
        RowBox[{"a", "-", 
         RowBox[{"b", " ", 
          RowBox[{"Conjugate", "[", "b", "]"}]}]}]]}]},
     {
      RowBox[{"-", 
       FractionBox[
        RowBox[{"Conjugate", "[", "b", "]"}], 
        RowBox[{"a", "-", 
         RowBox[{"b", " ", 
          RowBox[{"Conjugate", "[", "b", "]"}]}]}]]}], 
      FractionBox["a", 
       RowBox[{"a", "-", 
        RowBox[{"b", " ", 
         RowBox[{"Conjugate", "[", "b", "]"}]}]}]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.5085070319139338`*^9, 3.508590945173211*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Eigensystem", "[", "m", "]"}]], "Input",
 CellChangeTimes->{{3.508507176668714*^9, 3.5085071778117657`*^9}, {
  3.50850728084184*^9, 3.5085074569956217`*^9}, {3.508590925705236*^9, 
  3.5085909259189262`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", "a", "-", 
        SqrtBox[
         RowBox[{"1", "-", 
          RowBox[{"2", " ", "a"}], "+", 
          SuperscriptBox["a", "2"], "+", 
          RowBox[{"4", " ", "b", " ", 
           RowBox[{"Conjugate", "[", "b", "]"}]}]}]]}], ")"}]}], ",", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", "a", "+", 
        SqrtBox[
         RowBox[{"1", "-", 
          RowBox[{"2", " ", "a"}], "+", 
          SuperscriptBox["a", "2"], "+", 
          RowBox[{"4", " ", "b", " ", 
           RowBox[{"Conjugate", "[", "b", "]"}]}]}]]}], ")"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"1", "-", "a", "+", 
          SqrtBox[
           RowBox[{"1", "-", 
            RowBox[{"2", " ", "a"}], "+", 
            SuperscriptBox["a", "2"], "+", 
            RowBox[{"4", " ", "b", " ", 
             RowBox[{"Conjugate", "[", "b", "]"}]}]}]]}], 
         RowBox[{"2", " ", 
          RowBox[{"Conjugate", "[", "b", "]"}]}]]}], ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"1", "-", "a", "-", 
          SqrtBox[
           RowBox[{"1", "-", 
            RowBox[{"2", " ", "a"}], "+", 
            SuperscriptBox["a", "2"], "+", 
            RowBox[{"4", " ", "b", " ", 
             RowBox[{"Conjugate", "[", "b", "]"}]}]}]]}], 
         RowBox[{"2", " ", 
          RowBox[{"Conjugate", "[", "b", "]"}]}]]}], ",", "1"}], "}"}]}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.508507430152844*^9, 3.508507457675085*^9}, 
   3.508590947607822*^9}]
}, Open  ]],

Cell[BoxData["EigenSystem"], "Input",
 CellChangeTimes->{{3.508507460492176*^9, 3.508507467707755*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Series", "[", 
  RowBox[{
   RowBox[{"Log", "[", 
    RowBox[{"x", "+", "1"}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "0", ",", " ", "5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5085147264175673`*^9, 3.508514729911294*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"x", "-", 
   FractionBox[
    SuperscriptBox["x", "2"], "2"], "+", 
   FractionBox[
    SuperscriptBox["x", "3"], "3"], "-", 
   FractionBox[
    SuperscriptBox["x", "4"], "4"], "+", 
   FractionBox[
    SuperscriptBox["x", "5"], "5"], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "x", "]"}], "6"],
    SeriesData[$CellContext`x, 0, {}, 1, 6, 1],
    Editable->False]}],
  SeriesData[$CellContext`x, 0, {1, 
    Rational[-1, 2], 
    Rational[1, 3], 
    Rational[-1, 4], 
    Rational[1, 5]}, 1, 6, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.508509384119197*^9, 3.508514730508497*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"G", "[", "p_", "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"G11", "[", "p", "]"}], ",", 
       RowBox[{"G12", "[", "p", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"G12", "[", "p", "]"}], "\[Conjugate]"}], ",", 
       RowBox[{"G22", "[", "p", "]"}]}], "}"}]}], "}"}]}], ";", 
  RowBox[{
   RowBox[{"K", "[", "p_", "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"et", "[", "p", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"et", "[", 
         RowBox[{"-", "p"}], "]"}], "\[Conjugate]"}], ",", "0"}], "}"}]}], 
    "}"}]}]}]], "Input",
 CellChangeTimes->{{3.508517814830065*^9, 3.508517943550564*^9}, {
  3.5085179824950542`*^9, 3.5085179962378902`*^9}, {3.5105147087539186`*^9, 
  3.510514713952818*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"G", "[", "p", "]"}], ".", 
  RowBox[{"K", "[", "q", "]"}], ".", 
  RowBox[{"G", "[", 
   RowBox[{"p", "-", "q"}], "]"}], ".", 
  RowBox[{"K", "[", 
   RowBox[{"-", "q"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5085180028226643`*^9, 3.508518032909665*^9}, {
  3.5105143818895407`*^9, 3.510514382766369*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"Conjugate", "[", 
       RowBox[{"et", "[", "q", "]"}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Conjugate", "[", 
          RowBox[{"et", "[", 
           RowBox[{"-", "q"}], "]"}], "]"}], " ", 
         RowBox[{"G12", "[", "p", "]"}], " ", 
         RowBox[{"G12", "[", 
          RowBox[{"p", "-", "q"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"et", "[", "q", "]"}], " ", 
         RowBox[{"G11", "[", "p", "]"}], " ", 
         RowBox[{"G22", "[", 
          RowBox[{"p", "-", "q"}], "]"}]}]}], ")"}]}], ",", 
     RowBox[{
      RowBox[{"et", "[", 
       RowBox[{"-", "q"}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Conjugate", "[", 
          RowBox[{"G12", "[", 
           RowBox[{"p", "-", "q"}], "]"}], "]"}], " ", 
         RowBox[{"et", "[", "q", "]"}], " ", 
         RowBox[{"G11", "[", "p", "]"}]}], "+", 
        RowBox[{
         RowBox[{"Conjugate", "[", 
          RowBox[{"et", "[", 
           RowBox[{"-", "q"}], "]"}], "]"}], " ", 
         RowBox[{"G11", "[", 
          RowBox[{"p", "-", "q"}], "]"}], " ", 
         RowBox[{"G12", "[", "p", "]"}]}]}], ")"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"Conjugate", "[", 
       RowBox[{"et", "[", "q", "]"}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Conjugate", "[", 
          RowBox[{"et", "[", 
           RowBox[{"-", "q"}], "]"}], "]"}], " ", 
         RowBox[{"G12", "[", 
          RowBox[{"p", "-", "q"}], "]"}], " ", 
         RowBox[{"G22", "[", "p", "]"}]}], "+", 
        RowBox[{
         RowBox[{"Conjugate", "[", 
          RowBox[{"G12", "[", "p", "]"}], "]"}], " ", 
         RowBox[{"et", "[", "q", "]"}], " ", 
         RowBox[{"G22", "[", 
          RowBox[{"p", "-", "q"}], "]"}]}]}], ")"}]}], ",", 
     RowBox[{
      RowBox[{"et", "[", 
       RowBox[{"-", "q"}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Conjugate", "[", 
          RowBox[{"G12", "[", "p", "]"}], "]"}], " ", 
         RowBox[{"Conjugate", "[", 
          RowBox[{"G12", "[", 
           RowBox[{"p", "-", "q"}], "]"}], "]"}], " ", 
         RowBox[{"et", "[", "q", "]"}]}], "+", 
        RowBox[{
         RowBox[{"Conjugate", "[", 
          RowBox[{"et", "[", 
           RowBox[{"-", "q"}], "]"}], "]"}], " ", 
         RowBox[{"G11", "[", 
          RowBox[{"p", "-", "q"}], "]"}], " ", 
         RowBox[{"G22", "[", "p", "]"}]}]}], ")"}]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.508518004775926*^9, 3.508518033467848*^9}, {
   3.510514387295685*^9, 3.510514394428278*^9}, 3.510514718337455*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Tr", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.510514461802849*^9, 3.5105144722289877`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"et", "[", 
    RowBox[{"-", "q"}], "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"Conjugate", "[", 
       RowBox[{"G12", "[", "p", "]"}], "]"}], " ", 
      RowBox[{"Conjugate", "[", 
       RowBox[{"G12", "[", 
        RowBox[{"p", "-", "q"}], "]"}], "]"}], " ", 
      RowBox[{"et", "[", "q", "]"}]}], "+", 
     RowBox[{
      RowBox[{"Conjugate", "[", 
       RowBox[{"et", "[", 
        RowBox[{"-", "q"}], "]"}], "]"}], " ", 
      RowBox[{"G11", "[", 
       RowBox[{"p", "-", "q"}], "]"}], " ", 
      RowBox[{"G22", "[", "p", "]"}]}]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"Conjugate", "[", 
    RowBox[{"et", "[", "q", "]"}], "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"Conjugate", "[", 
       RowBox[{"et", "[", 
        RowBox[{"-", "q"}], "]"}], "]"}], " ", 
      RowBox[{"G12", "[", "p", "]"}], " ", 
      RowBox[{"G12", "[", 
       RowBox[{"p", "-", "q"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"et", "[", "q", "]"}], " ", 
      RowBox[{"G11", "[", "p", "]"}], " ", 
      RowBox[{"G22", "[", 
       RowBox[{"p", "-", "q"}], "]"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.510514472686388*^9, 3.51051448140804*^9}, 
   3.510514720625043*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Expand", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.5105144879900017`*^9, 3.5105144934090223`*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{"et", "(", "q", ")"}], " ", 
    RowBox[{"G11", "(", "p", ")"}], " ", 
    TemplateBox[{RowBox[{"et", "(", "q", ")"}]},
     "Conjugate"], " ", 
    RowBox[{"G22", "(", 
     RowBox[{"p", "-", "q"}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"et", "(", 
     RowBox[{"-", "q"}], ")"}], " ", 
    RowBox[{"G22", "(", "p", ")"}], " ", 
    TemplateBox[{RowBox[{"et", "(", 
        RowBox[{"-", "q"}], ")"}]},
     "Conjugate"], " ", 
    RowBox[{"G11", "(", 
     RowBox[{"p", "-", "q"}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"et", "(", 
     RowBox[{"-", "q"}], ")"}], " ", 
    RowBox[{"et", "(", "q", ")"}], " ", 
    TemplateBox[{RowBox[{"G12", "(", "p", ")"}]},
     "Conjugate"], " ", 
    TemplateBox[{RowBox[{"G12", "(", 
        RowBox[{"p", "-", "q"}], ")"}]},
     "Conjugate"]}], "+", 
   RowBox[{
    RowBox[{"G12", "(", "p", ")"}], " ", 
    TemplateBox[{RowBox[{"et", "(", 
        RowBox[{"-", "q"}], ")"}]},
     "Conjugate"], " ", 
    TemplateBox[{RowBox[{"et", "(", "q", ")"}]},
     "Conjugate"], " ", 
    RowBox[{"G12", "(", 
     RowBox[{"p", "-", "q"}], ")"}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{{3.5105144941522703`*^9, 3.510514501526753*^9}, {
  3.510514722942911*^9, 3.510514731180928*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.508518035101775*^9, 3.508518042733027*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"Conjugate", "[", 
       RowBox[{"et", "[", "q", "]"}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Conjugate", "[", 
          RowBox[{"et", "[", 
           RowBox[{"-", "q"}], "]"}], "]"}], " ", 
         RowBox[{"G12", "[", "p", "]"}], " ", 
         RowBox[{"G12", "[", 
          RowBox[{"p", "+", "q"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"et", "[", "q", "]"}], " ", 
         RowBox[{"G11", "[", "p", "]"}], " ", 
         RowBox[{"G22", "[", 
          RowBox[{"p", "+", "q"}], "]"}]}]}], ")"}]}], ",", 
     RowBox[{
      RowBox[{"et", "[", 
       RowBox[{"-", "q"}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Conjugate", "[", 
          RowBox[{"et", "[", 
           RowBox[{"-", "q"}], "]"}], "]"}], " ", 
         RowBox[{"G11", "[", 
          RowBox[{"p", "+", "q"}], "]"}], " ", 
         RowBox[{"G12", "[", "p", "]"}]}], "+", 
        RowBox[{
         RowBox[{"et", "[", "q", "]"}], " ", 
         RowBox[{"G11", "[", "p", "]"}], " ", 
         RowBox[{"G21", "[", 
          RowBox[{"p", "+", "q"}], "]"}]}]}], ")"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"Conjugate", "[", 
       RowBox[{"et", "[", "q", "]"}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Conjugate", "[", 
          RowBox[{"et", "[", 
           RowBox[{"-", "q"}], "]"}], "]"}], " ", 
         RowBox[{"G12", "[", 
          RowBox[{"p", "+", "q"}], "]"}], " ", 
         RowBox[{"G22", "[", "p", "]"}]}], "+", 
        RowBox[{
         RowBox[{"et", "[", "q", "]"}], " ", 
         RowBox[{"G21", "[", "p", "]"}], " ", 
         RowBox[{"G22", "[", 
          RowBox[{"p", "+", "q"}], "]"}]}]}], ")"}]}], ",", 
     RowBox[{
      RowBox[{"et", "[", 
       RowBox[{"-", "q"}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"et", "[", "q", "]"}], " ", 
         RowBox[{"G21", "[", "p", "]"}], " ", 
         RowBox[{"G21", "[", 
          RowBox[{"p", "+", "q"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"Conjugate", "[", 
          RowBox[{"et", "[", 
           RowBox[{"-", "q"}], "]"}], "]"}], " ", 
         RowBox[{"G11", "[", 
          RowBox[{"p", "+", "q"}], "]"}], " ", 
         RowBox[{"G22", "[", "p", "]"}]}]}], ")"}]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.508518043821273*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.508518045424391*^9, 3.508518054198958*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{"Conjugate", "[", 
        RowBox[{"et", "[", "q", "]"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"Conjugate", "[", 
           RowBox[{"et", "[", 
            RowBox[{"-", "q"}], "]"}], "]"}], " ", 
          RowBox[{"G12", "[", "p", "]"}], " ", 
          RowBox[{"G12", "[", 
           RowBox[{"p", "+", "q"}], "]"}]}], "+", 
         RowBox[{
          RowBox[{"et", "[", "q", "]"}], " ", 
          RowBox[{"G11", "[", "p", "]"}], " ", 
          RowBox[{"G22", "[", 
           RowBox[{"p", "+", "q"}], "]"}]}]}], ")"}]}], 
      RowBox[{
       RowBox[{"et", "[", 
        RowBox[{"-", "q"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"Conjugate", "[", 
           RowBox[{"et", "[", 
            RowBox[{"-", "q"}], "]"}], "]"}], " ", 
          RowBox[{"G11", "[", 
           RowBox[{"p", "+", "q"}], "]"}], " ", 
          RowBox[{"G12", "[", "p", "]"}]}], "+", 
         RowBox[{
          RowBox[{"et", "[", "q", "]"}], " ", 
          RowBox[{"G11", "[", "p", "]"}], " ", 
          RowBox[{"G21", "[", 
           RowBox[{"p", "+", "q"}], "]"}]}]}], ")"}]}]},
     {
      RowBox[{
       RowBox[{"Conjugate", "[", 
        RowBox[{"et", "[", "q", "]"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"Conjugate", "[", 
           RowBox[{"et", "[", 
            RowBox[{"-", "q"}], "]"}], "]"}], " ", 
          RowBox[{"G12", "[", 
           RowBox[{"p", "+", "q"}], "]"}], " ", 
          RowBox[{"G22", "[", "p", "]"}]}], "+", 
         RowBox[{
          RowBox[{"et", "[", "q", "]"}], " ", 
          RowBox[{"G21", "[", "p", "]"}], " ", 
          RowBox[{"G22", "[", 
           RowBox[{"p", "+", "q"}], "]"}]}]}], ")"}]}], 
      RowBox[{
       RowBox[{"et", "[", 
        RowBox[{"-", "q"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"et", "[", "q", "]"}], " ", 
          RowBox[{"G21", "[", "p", "]"}], " ", 
          RowBox[{"G21", "[", 
           RowBox[{"p", "+", "q"}], "]"}]}], "+", 
         RowBox[{
          RowBox[{"Conjugate", "[", 
           RowBox[{"et", "[", 
            RowBox[{"-", "q"}], "]"}], "]"}], " ", 
          RowBox[{"G11", "[", 
           RowBox[{"p", "+", "q"}], "]"}], " ", 
          RowBox[{"G22", "[", "p", "]"}]}]}], ")"}]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.5085180548043833`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"InvsG", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"G11", ",", "G12", ",", "G13"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"G12", "\[Conjugate]"}], ",", "G22", ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"G13", "\[Conjugate]"}], ",", "0", ",", "G33"}], "}"}]}], 
   "}"}]}]], "Input",
 CellChangeTimes->{
  3.508518006525544*^9, {3.508525565737471*^9, 3.508525619506247*^9}, {
   3.509935867908113*^9, 3.509935873267005*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"G11", ",", "G12", ",", "G13"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Conjugate", "[", "G12", "]"}], ",", "G22", ",", "0"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Conjugate", "[", "G13", "]"}], ",", "0", ",", "G33"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.508525623068466*^9, 3.509935886937346*^9, 
  3.512240205892407*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"G", "=", 
    RowBox[{"Inverse", "[", "InvsG", "]"}]}], ")"}], "//", 
  "TraditionalForm"}]], "Input",
 CellChangeTimes->{{3.508525627035716*^9, 3.508525630226274*^9}, {
  3.508525665027001*^9, 3.5085256662743073`*^9}, {3.509935876578494*^9, 
  3.509935917068316*^9}, {3.5099359654464903`*^9, 3.509935966044318*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      FractionBox[
       RowBox[{"G22", " ", "G33"}], 
       RowBox[{
        RowBox[{"G11", " ", "G22", " ", "G33"}], "-", 
        RowBox[{"G12", " ", 
         TemplateBox[{"G12"},
          "Conjugate"], " ", "G33"}], "-", 
        RowBox[{"G13", " ", "G22", " ", 
         TemplateBox[{"G13"},
          "Conjugate"]}]}]], 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"G12", " ", "G33"}], 
        RowBox[{
         RowBox[{"G11", " ", "G22", " ", "G33"}], "-", 
         RowBox[{"G12", " ", 
          TemplateBox[{"G12"},
           "Conjugate"], " ", "G33"}], "-", 
         RowBox[{"G13", " ", "G22", " ", 
          TemplateBox[{"G13"},
           "Conjugate"]}]}]]}], 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"G13", " ", "G22"}], 
        RowBox[{
         RowBox[{"G11", " ", "G22", " ", "G33"}], "-", 
         RowBox[{"G12", " ", 
          TemplateBox[{"G12"},
           "Conjugate"], " ", "G33"}], "-", 
         RowBox[{"G13", " ", "G22", " ", 
          TemplateBox[{"G13"},
           "Conjugate"]}]}]]}]},
     {
      RowBox[{"-", 
       FractionBox[
        RowBox[{"G33", " ", 
         TemplateBox[{"G12"},
          "Conjugate"]}], 
        RowBox[{
         RowBox[{"G11", " ", "G22", " ", "G33"}], "-", 
         RowBox[{"G12", " ", 
          TemplateBox[{"G12"},
           "Conjugate"], " ", "G33"}], "-", 
         RowBox[{"G13", " ", "G22", " ", 
          TemplateBox[{"G13"},
           "Conjugate"]}]}]]}], 
      FractionBox[
       RowBox[{
        RowBox[{"G11", " ", "G33"}], "-", 
        RowBox[{"G13", " ", 
         TemplateBox[{"G13"},
          "Conjugate"]}]}], 
       RowBox[{
        RowBox[{"G11", " ", "G22", " ", "G33"}], "-", 
        RowBox[{"G12", " ", 
         TemplateBox[{"G12"},
          "Conjugate"], " ", "G33"}], "-", 
        RowBox[{"G13", " ", "G22", " ", 
         TemplateBox[{"G13"},
          "Conjugate"]}]}]], 
      FractionBox[
       RowBox[{"G13", " ", 
        TemplateBox[{"G12"},
         "Conjugate"]}], 
       RowBox[{
        RowBox[{"G11", " ", "G22", " ", "G33"}], "-", 
        RowBox[{"G12", " ", 
         TemplateBox[{"G12"},
          "Conjugate"], " ", "G33"}], "-", 
        RowBox[{"G13", " ", "G22", " ", 
         TemplateBox[{"G13"},
          "Conjugate"]}]}]]},
     {
      RowBox[{"-", 
       FractionBox[
        RowBox[{"G22", " ", 
         TemplateBox[{"G13"},
          "Conjugate"]}], 
        RowBox[{
         RowBox[{"G11", " ", "G22", " ", "G33"}], "-", 
         RowBox[{"G12", " ", 
          TemplateBox[{"G12"},
           "Conjugate"], " ", "G33"}], "-", 
         RowBox[{"G13", " ", "G22", " ", 
          TemplateBox[{"G13"},
           "Conjugate"]}]}]]}], 
      FractionBox[
       RowBox[{"G12", " ", 
        TemplateBox[{"G13"},
         "Conjugate"]}], 
       RowBox[{
        RowBox[{"G11", " ", "G22", " ", "G33"}], "-", 
        RowBox[{"G12", " ", 
         TemplateBox[{"G12"},
          "Conjugate"], " ", "G33"}], "-", 
        RowBox[{"G13", " ", "G22", " ", 
         TemplateBox[{"G13"},
          "Conjugate"]}]}]], 
      FractionBox[
       RowBox[{
        RowBox[{"G11", " ", "G22"}], "-", 
        RowBox[{"G12", " ", 
         TemplateBox[{"G12"},
          "Conjugate"]}]}], 
       RowBox[{
        RowBox[{"G11", " ", "G22", " ", "G33"}], "-", 
        RowBox[{"G12", " ", 
         TemplateBox[{"G12"},
          "Conjugate"], " ", "G33"}], "-", 
        RowBox[{"G13", " ", "G22", " ", 
         TemplateBox[{"G13"},
          "Conjugate"]}]}]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{
  3.5085256307110357`*^9, 3.50852566664209*^9, {3.509935891061833*^9, 
   3.5099359182170677`*^9}, 3.509935967365299*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"IG", "*", 
  RowBox[{"Det", "[", "G", "]"}]}]], "Input",
 CellChangeTimes->{{3.50852563700781*^9, 3.5085256884677277`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"G22", " ", "G33"}], ",", 
     RowBox[{
      RowBox[{"-", "G12"}], " ", "G33"}], ",", 
     RowBox[{
      RowBox[{"-", "G13"}], " ", "G22"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "G33"}], " ", 
      RowBox[{"Conjugate", "[", "G12", "]"}]}], ",", 
     RowBox[{
      RowBox[{"G11", " ", "G33"}], "-", 
      RowBox[{"G13", " ", 
       RowBox[{"Conjugate", "[", "G13", "]"}]}]}], ",", 
     RowBox[{"G13", " ", 
      RowBox[{"Conjugate", "[", "G12", "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "G22"}], " ", 
      RowBox[{"Conjugate", "[", "G13", "]"}]}], ",", 
     RowBox[{"G12", " ", 
      RowBox[{"Conjugate", "[", "G13", "]"}]}], ",", 
     RowBox[{
      RowBox[{"G11", " ", "G22"}], "-", 
      RowBox[{"G12", " ", 
       RowBox[{"Conjugate", "[", "G12", "]"}]}]}]}], "}"}]}], "}"}]], "Output",\

 CellChangeTimes->{3.508525642462082*^9, 3.508525689009091*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.508525692307748*^9, 3.508525699723341*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"G22", " ", "G33"}], 
      RowBox[{
       RowBox[{"-", "G12"}], " ", "G33"}], 
      RowBox[{
       RowBox[{"-", "G13"}], " ", "G22"}]},
     {
      RowBox[{
       RowBox[{"-", "G33"}], " ", 
       RowBox[{"Conjugate", "[", "G12", "]"}]}], 
      RowBox[{
       RowBox[{"G11", " ", "G33"}], "-", 
       RowBox[{"G13", " ", 
        RowBox[{"Conjugate", "[", "G13", "]"}]}]}], 
      RowBox[{"G13", " ", 
       RowBox[{"Conjugate", "[", "G12", "]"}]}]},
     {
      RowBox[{
       RowBox[{"-", "G22"}], " ", 
       RowBox[{"Conjugate", "[", "G13", "]"}]}], 
      RowBox[{"G12", " ", 
       RowBox[{"Conjugate", "[", "G13", "]"}]}], 
      RowBox[{
       RowBox[{"G11", " ", "G22"}], "-", 
       RowBox[{"G12", " ", 
        RowBox[{"Conjugate", "[", "G12", "]"}]}]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.508525700218069*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Factor", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.508525645213214*^9, 3.5085256482663393`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     FractionBox[
      RowBox[{"G22", " ", "G33"}], 
      RowBox[{
       RowBox[{"G11", " ", "G22", " ", "G33"}], "-", 
       RowBox[{"G12", " ", "G33", " ", 
        RowBox[{"Conjugate", "[", "G12", "]"}]}], "-", 
       RowBox[{"G13", " ", "G22", " ", 
        RowBox[{"Conjugate", "[", "G13", "]"}]}]}]], ",", 
     FractionBox[
      RowBox[{"G12", " ", "G33"}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", "G11"}], " ", "G22", " ", "G33"}], "+", 
       RowBox[{"G12", " ", "G33", " ", 
        RowBox[{"Conjugate", "[", "G12", "]"}]}], "+", 
       RowBox[{"G13", " ", "G22", " ", 
        RowBox[{"Conjugate", "[", "G13", "]"}]}]}]], ",", 
     FractionBox[
      RowBox[{"G13", " ", "G22"}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", "G11"}], " ", "G22", " ", "G33"}], "+", 
       RowBox[{"G12", " ", "G33", " ", 
        RowBox[{"Conjugate", "[", "G12", "]"}]}], "+", 
       RowBox[{"G13", " ", "G22", " ", 
        RowBox[{"Conjugate", "[", "G13", "]"}]}]}]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox[
      RowBox[{"G33", " ", 
       RowBox[{"Conjugate", "[", "G12", "]"}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", "G11"}], " ", "G22", " ", "G33"}], "+", 
       RowBox[{"G12", " ", "G33", " ", 
        RowBox[{"Conjugate", "[", "G12", "]"}]}], "+", 
       RowBox[{"G13", " ", "G22", " ", 
        RowBox[{"Conjugate", "[", "G13", "]"}]}]}]], ",", 
     FractionBox[
      RowBox[{
       RowBox[{"G11", " ", "G33"}], "-", 
       RowBox[{"G13", " ", 
        RowBox[{"Conjugate", "[", "G13", "]"}]}]}], 
      RowBox[{
       RowBox[{"G11", " ", "G22", " ", "G33"}], "-", 
       RowBox[{"G12", " ", "G33", " ", 
        RowBox[{"Conjugate", "[", "G12", "]"}]}], "-", 
       RowBox[{"G13", " ", "G22", " ", 
        RowBox[{"Conjugate", "[", "G13", "]"}]}]}]], ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"G13", " ", 
        RowBox[{"Conjugate", "[", "G12", "]"}]}], 
       RowBox[{
        RowBox[{
         RowBox[{"-", "G11"}], " ", "G22", " ", "G33"}], "+", 
        RowBox[{"G12", " ", "G33", " ", 
         RowBox[{"Conjugate", "[", "G12", "]"}]}], "+", 
        RowBox[{"G13", " ", "G22", " ", 
         RowBox[{"Conjugate", "[", "G13", "]"}]}]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox[
      RowBox[{"G22", " ", 
       RowBox[{"Conjugate", "[", "G13", "]"}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", "G11"}], " ", "G22", " ", "G33"}], "+", 
       RowBox[{"G12", " ", "G33", " ", 
        RowBox[{"Conjugate", "[", "G12", "]"}]}], "+", 
       RowBox[{"G13", " ", "G22", " ", 
        RowBox[{"Conjugate", "[", "G13", "]"}]}]}]], ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"G12", " ", 
        RowBox[{"Conjugate", "[", "G13", "]"}]}], 
       RowBox[{
        RowBox[{
         RowBox[{"-", "G11"}], " ", "G22", " ", "G33"}], "+", 
        RowBox[{"G12", " ", "G33", " ", 
         RowBox[{"Conjugate", "[", "G12", "]"}]}], "+", 
        RowBox[{"G13", " ", "G22", " ", 
         RowBox[{"Conjugate", "[", "G13", "]"}]}]}]]}], ",", 
     FractionBox[
      RowBox[{
       RowBox[{"G11", " ", "G22"}], "-", 
       RowBox[{"G12", " ", 
        RowBox[{"Conjugate", "[", "G12", "]"}]}]}], 
      RowBox[{
       RowBox[{"G11", " ", "G22", " ", "G33"}], "-", 
       RowBox[{"G12", " ", "G33", " ", 
        RowBox[{"Conjugate", "[", "G12", "]"}]}], "-", 
       RowBox[{"G13", " ", "G22", " ", 
        RowBox[{"Conjugate", "[", "G13", "]"}]}]}]]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.508525648842588*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Det", "[", "G", "]"}]], "Input",
 CellChangeTimes->{{3.5085285388665133`*^9, 3.508528541175753*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"G11", " ", "G22", " ", "G33"}], "-", 
  RowBox[{"G12", " ", "G33", " ", 
   RowBox[{"Conjugate", "[", "G12", "]"}]}], "-", 
  RowBox[{"G13", " ", "G22", " ", 
   RowBox[{"Conjugate", "[", "G13", "]"}]}]}]], "Output",
 CellChangeTimes->{3.5085285415681887`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"G0", "[", "p_", "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"G11", "[", "p", "]"}], ",", 
       RowBox[{"G12", "[", "p", "]"}], ",", 
       RowBox[{"G13", "[", "p", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"G12", "[", 
         RowBox[{"-", "p"}], "]"}], "\[Conjugate]"}], ",", 
       RowBox[{"G22", "[", "p", "]"}], ",", 
       RowBox[{"G23", "[", "p", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"G13", "[", 
         RowBox[{"-", "p"}], "]"}], "\[Conjugate]"}], ",", 
       RowBox[{
        RowBox[{"G23", "[", 
         RowBox[{"-", "p"}], "]"}], "\[Conjugate]"}], ",", 
       RowBox[{"G33", "[", "p", "]"}]}], "}"}]}], "}"}]}], ";", 
  RowBox[{
   RowBox[{"K", "[", "q_", "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"bt1", "[", "q", "]"}], ",", 
       RowBox[{"bt2", "[", "q", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"bt1", "[", 
         RowBox[{"-", "q"}], "]"}], "\[Conjugate]"}], ",", "0", ",", "0"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"bt2", "[", 
         RowBox[{"-", "q"}], "]"}], "\[Conjugate]"}], ",", "0", ",", "0"}], 
      "}"}]}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.50859703718778*^9, 3.508597185486732*^9}, {
  3.508597304875905*^9, 3.508597306515156*^9}, {3.508597884945011*^9, 
  3.508597903601404*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"GaussianTerm", "=", 
   RowBox[{
    RowBox[{"G0", "[", "p", "]"}], ".", 
    RowBox[{"K", "[", "q", "]"}], ".", 
    RowBox[{"G0", "[", 
     RowBox[{"p", "-", "q"}], "]"}], ".", 
    RowBox[{"K", "[", 
     RowBox[{"-", "q"}], "]"}]}]}], ";", 
  RowBox[{"GaussianTerm", "//", "TraditionalForm"}]}]], "Input",
 CellChangeTimes->{{3.5085971900000277`*^9, 3.5085972210284557`*^9}, {
  3.509935998863077*^9, 3.509936048326549*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{
        TemplateBox[{RowBox[{"bt1", "(", "q", ")"}]},
         "Conjugate"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"bt2", "(", "q", ")"}], " ", 
           TemplateBox[{RowBox[{"G23", "(", 
               RowBox[{"q", "-", "p"}], ")"}]},
            "Conjugate"], " ", 
           RowBox[{"G11", "(", "p", ")"}]}], "+", 
          RowBox[{
           RowBox[{"bt1", "(", "q", ")"}], " ", 
           RowBox[{"G22", "(", 
            RowBox[{"p", "-", "q"}], ")"}], " ", 
           RowBox[{"G11", "(", "p", ")"}]}], "+", 
          RowBox[{
           RowBox[{"G12", "(", 
            RowBox[{"p", "-", "q"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              TemplateBox[{RowBox[{"bt1", "(", 
                  RowBox[{"-", "q"}], ")"}]},
               "Conjugate"], " ", 
              RowBox[{"G12", "(", "p", ")"}]}], "+", 
             RowBox[{
              TemplateBox[{RowBox[{"bt2", "(", 
                  RowBox[{"-", "q"}], ")"}]},
               "Conjugate"], " ", 
              RowBox[{"G13", "(", "p", ")"}]}]}], ")"}]}]}], ")"}]}], "+", 
       RowBox[{
        TemplateBox[{RowBox[{"bt2", "(", "q", ")"}]},
         "Conjugate"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              TemplateBox[{RowBox[{"bt1", "(", 
                  RowBox[{"-", "q"}], ")"}]},
               "Conjugate"], " ", 
              RowBox[{"G12", "(", "p", ")"}]}], "+", 
             RowBox[{
              TemplateBox[{RowBox[{"bt2", "(", 
                  RowBox[{"-", "q"}], ")"}]},
               "Conjugate"], " ", 
              RowBox[{"G13", "(", "p", ")"}]}]}], ")"}], " ", 
           RowBox[{"G13", "(", 
            RowBox[{"p", "-", "q"}], ")"}]}], "+", 
          RowBox[{
           RowBox[{"bt1", "(", "q", ")"}], " ", 
           RowBox[{"G11", "(", "p", ")"}], " ", 
           RowBox[{"G23", "(", 
            RowBox[{"p", "-", "q"}], ")"}]}], "+", 
          RowBox[{
           RowBox[{"bt2", "(", "q", ")"}], " ", 
           RowBox[{"G11", "(", "p", ")"}], " ", 
           RowBox[{"G33", "(", 
            RowBox[{"p", "-", "q"}], ")"}]}]}], ")"}]}]}], 
      RowBox[{
       RowBox[{"bt1", "(", 
        RowBox[{"-", "q"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"bt1", "(", "q", ")"}], " ", 
          TemplateBox[{RowBox[{"G12", "(", 
              RowBox[{"q", "-", "p"}], ")"}]},
           "Conjugate"], " ", 
          RowBox[{"G11", "(", "p", ")"}]}], "+", 
         RowBox[{
          RowBox[{"bt2", "(", "q", ")"}], " ", 
          TemplateBox[{RowBox[{"G13", "(", 
              RowBox[{"q", "-", "p"}], ")"}]},
           "Conjugate"], " ", 
          RowBox[{"G11", "(", "p", ")"}]}], "+", 
         RowBox[{
          RowBox[{"G11", "(", 
           RowBox[{"p", "-", "q"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             TemplateBox[{RowBox[{"bt1", "(", 
                 RowBox[{"-", "q"}], ")"}]},
              "Conjugate"], " ", 
             RowBox[{"G12", "(", "p", ")"}]}], "+", 
            RowBox[{
             TemplateBox[{RowBox[{"bt2", "(", 
                 RowBox[{"-", "q"}], ")"}]},
              "Conjugate"], " ", 
             RowBox[{"G13", "(", "p", ")"}]}]}], ")"}]}]}], ")"}]}], 
      RowBox[{
       RowBox[{"bt2", "(", 
        RowBox[{"-", "q"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"bt1", "(", "q", ")"}], " ", 
          TemplateBox[{RowBox[{"G12", "(", 
              RowBox[{"q", "-", "p"}], ")"}]},
           "Conjugate"], " ", 
          RowBox[{"G11", "(", "p", ")"}]}], "+", 
         RowBox[{
          RowBox[{"bt2", "(", "q", ")"}], " ", 
          TemplateBox[{RowBox[{"G13", "(", 
              RowBox[{"q", "-", "p"}], ")"}]},
           "Conjugate"], " ", 
          RowBox[{"G11", "(", "p", ")"}]}], "+", 
         RowBox[{
          RowBox[{"G11", "(", 
           RowBox[{"p", "-", "q"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             TemplateBox[{RowBox[{"bt1", "(", 
                 RowBox[{"-", "q"}], ")"}]},
              "Conjugate"], " ", 
             RowBox[{"G12", "(", "p", ")"}]}], "+", 
            RowBox[{
             TemplateBox[{RowBox[{"bt2", "(", 
                 RowBox[{"-", "q"}], ")"}]},
              "Conjugate"], " ", 
             RowBox[{"G13", "(", "p", ")"}]}]}], ")"}]}]}], ")"}]}]},
     {
      RowBox[{
       RowBox[{
        TemplateBox[{RowBox[{"bt1", "(", "q", ")"}]},
         "Conjugate"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"bt2", "(", "q", ")"}], " ", 
           TemplateBox[{RowBox[{"G12", "(", 
               RowBox[{"-", "p"}], ")"}]},
            "Conjugate"], " ", 
           TemplateBox[{RowBox[{"G23", "(", 
               RowBox[{"q", "-", "p"}], ")"}]},
            "Conjugate"]}], "+", 
          RowBox[{
           RowBox[{"bt1", "(", "q", ")"}], " ", 
           TemplateBox[{RowBox[{"G12", "(", 
               RowBox[{"-", "p"}], ")"}]},
            "Conjugate"], " ", 
           RowBox[{"G22", "(", 
            RowBox[{"p", "-", "q"}], ")"}]}], "+", 
          RowBox[{
           RowBox[{"G12", "(", 
            RowBox[{"p", "-", "q"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              TemplateBox[{RowBox[{"bt1", "(", 
                  RowBox[{"-", "q"}], ")"}]},
               "Conjugate"], " ", 
              RowBox[{"G22", "(", "p", ")"}]}], "+", 
             RowBox[{
              TemplateBox[{RowBox[{"bt2", "(", 
                  RowBox[{"-", "q"}], ")"}]},
               "Conjugate"], " ", 
              RowBox[{"G23", "(", "p", ")"}]}]}], ")"}]}]}], ")"}]}], "+", 
       RowBox[{
        TemplateBox[{RowBox[{"bt2", "(", "q", ")"}]},
         "Conjugate"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"G13", "(", 
            RowBox[{"p", "-", "q"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              TemplateBox[{RowBox[{"bt1", "(", 
                  RowBox[{"-", "q"}], ")"}]},
               "Conjugate"], " ", 
              RowBox[{"G22", "(", "p", ")"}]}], "+", 
             RowBox[{
              TemplateBox[{RowBox[{"bt2", "(", 
                  RowBox[{"-", "q"}], ")"}]},
               "Conjugate"], " ", 
              RowBox[{"G23", "(", "p", ")"}]}]}], ")"}]}], "+", 
          RowBox[{
           RowBox[{"bt1", "(", "q", ")"}], " ", 
           TemplateBox[{RowBox[{"G12", "(", 
               RowBox[{"-", "p"}], ")"}]},
            "Conjugate"], " ", 
           RowBox[{"G23", "(", 
            RowBox[{"p", "-", "q"}], ")"}]}], "+", 
          RowBox[{
           RowBox[{"bt2", "(", "q", ")"}], " ", 
           TemplateBox[{RowBox[{"G12", "(", 
               RowBox[{"-", "p"}], ")"}]},
            "Conjugate"], " ", 
           RowBox[{"G33", "(", 
            RowBox[{"p", "-", "q"}], ")"}]}]}], ")"}]}]}], 
      RowBox[{
       RowBox[{"bt1", "(", 
        RowBox[{"-", "q"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"bt1", "(", "q", ")"}], " ", 
          TemplateBox[{RowBox[{"G12", "(", 
              RowBox[{"-", "p"}], ")"}]},
           "Conjugate"], " ", 
          TemplateBox[{RowBox[{"G12", "(", 
              RowBox[{"q", "-", "p"}], ")"}]},
           "Conjugate"]}], "+", 
         RowBox[{
          RowBox[{"bt2", "(", "q", ")"}], " ", 
          TemplateBox[{RowBox[{"G12", "(", 
              RowBox[{"-", "p"}], ")"}]},
           "Conjugate"], " ", 
          TemplateBox[{RowBox[{"G13", "(", 
              RowBox[{"q", "-", "p"}], ")"}]},
           "Conjugate"]}], "+", 
         RowBox[{
          RowBox[{"G11", "(", 
           RowBox[{"p", "-", "q"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             TemplateBox[{RowBox[{"bt1", "(", 
                 RowBox[{"-", "q"}], ")"}]},
              "Conjugate"], " ", 
             RowBox[{"G22", "(", "p", ")"}]}], "+", 
            RowBox[{
             TemplateBox[{RowBox[{"bt2", "(", 
                 RowBox[{"-", "q"}], ")"}]},
              "Conjugate"], " ", 
             RowBox[{"G23", "(", "p", ")"}]}]}], ")"}]}]}], ")"}]}], 
      RowBox[{
       RowBox[{"bt2", "(", 
        RowBox[{"-", "q"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"bt1", "(", "q", ")"}], " ", 
          TemplateBox[{RowBox[{"G12", "(", 
              RowBox[{"-", "p"}], ")"}]},
           "Conjugate"], " ", 
          TemplateBox[{RowBox[{"G12", "(", 
              RowBox[{"q", "-", "p"}], ")"}]},
           "Conjugate"]}], "+", 
         RowBox[{
          RowBox[{"bt2", "(", "q", ")"}], " ", 
          TemplateBox[{RowBox[{"G12", "(", 
              RowBox[{"-", "p"}], ")"}]},
           "Conjugate"], " ", 
          TemplateBox[{RowBox[{"G13", "(", 
              RowBox[{"q", "-", "p"}], ")"}]},
           "Conjugate"]}], "+", 
         RowBox[{
          RowBox[{"G11", "(", 
           RowBox[{"p", "-", "q"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             TemplateBox[{RowBox[{"bt1", "(", 
                 RowBox[{"-", "q"}], ")"}]},
              "Conjugate"], " ", 
             RowBox[{"G22", "(", "p", ")"}]}], "+", 
            RowBox[{
             TemplateBox[{RowBox[{"bt2", "(", 
                 RowBox[{"-", "q"}], ")"}]},
              "Conjugate"], " ", 
             RowBox[{"G23", "(", "p", ")"}]}]}], ")"}]}]}], ")"}]}]},
     {
      RowBox[{
       RowBox[{
        TemplateBox[{RowBox[{"bt1", "(", "q", ")"}]},
         "Conjugate"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"bt2", "(", "q", ")"}], " ", 
           TemplateBox[{RowBox[{"G13", "(", 
               RowBox[{"-", "p"}], ")"}]},
            "Conjugate"], " ", 
           TemplateBox[{RowBox[{"G23", "(", 
               RowBox[{"q", "-", "p"}], ")"}]},
            "Conjugate"]}], "+", 
          RowBox[{
           RowBox[{"bt1", "(", "q", ")"}], " ", 
           TemplateBox[{RowBox[{"G13", "(", 
               RowBox[{"-", "p"}], ")"}]},
            "Conjugate"], " ", 
           RowBox[{"G22", "(", 
            RowBox[{"p", "-", "q"}], ")"}]}], "+", 
          RowBox[{
           RowBox[{"G12", "(", 
            RowBox[{"p", "-", "q"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              TemplateBox[{RowBox[{"bt1", "(", 
                  RowBox[{"-", "q"}], ")"}]},
               "Conjugate"], " ", 
              TemplateBox[{RowBox[{"G23", "(", 
                  RowBox[{"-", "p"}], ")"}]},
               "Conjugate"]}], "+", 
             RowBox[{
              TemplateBox[{RowBox[{"bt2", "(", 
                  RowBox[{"-", "q"}], ")"}]},
               "Conjugate"], " ", 
              RowBox[{"G33", "(", "p", ")"}]}]}], ")"}]}]}], ")"}]}], "+", 
       RowBox[{
        TemplateBox[{RowBox[{"bt2", "(", "q", ")"}]},
         "Conjugate"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"bt1", "(", "q", ")"}], " ", 
           TemplateBox[{RowBox[{"G13", "(", 
               RowBox[{"-", "p"}], ")"}]},
            "Conjugate"], " ", 
           RowBox[{"G23", "(", 
            RowBox[{"p", "-", "q"}], ")"}]}], "+", 
          RowBox[{
           RowBox[{"G13", "(", 
            RowBox[{"p", "-", "q"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              TemplateBox[{RowBox[{"bt1", "(", 
                  RowBox[{"-", "q"}], ")"}]},
               "Conjugate"], " ", 
              TemplateBox[{RowBox[{"G23", "(", 
                  RowBox[{"-", "p"}], ")"}]},
               "Conjugate"]}], "+", 
             RowBox[{
              TemplateBox[{RowBox[{"bt2", "(", 
                  RowBox[{"-", "q"}], ")"}]},
               "Conjugate"], " ", 
              RowBox[{"G33", "(", "p", ")"}]}]}], ")"}]}], "+", 
          RowBox[{
           RowBox[{"bt2", "(", "q", ")"}], " ", 
           TemplateBox[{RowBox[{"G13", "(", 
               RowBox[{"-", "p"}], ")"}]},
            "Conjugate"], " ", 
           RowBox[{"G33", "(", 
            RowBox[{"p", "-", "q"}], ")"}]}]}], ")"}]}]}], 
      RowBox[{
       RowBox[{"bt1", "(", 
        RowBox[{"-", "q"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"bt1", "(", "q", ")"}], " ", 
          TemplateBox[{RowBox[{"G12", "(", 
              RowBox[{"q", "-", "p"}], ")"}]},
           "Conjugate"], " ", 
          TemplateBox[{RowBox[{"G13", "(", 
              RowBox[{"-", "p"}], ")"}]},
           "Conjugate"]}], "+", 
         RowBox[{
          RowBox[{"bt2", "(", "q", ")"}], " ", 
          TemplateBox[{RowBox[{"G13", "(", 
              RowBox[{"q", "-", "p"}], ")"}]},
           "Conjugate"], " ", 
          TemplateBox[{RowBox[{"G13", "(", 
              RowBox[{"-", "p"}], ")"}]},
           "Conjugate"]}], "+", 
         RowBox[{
          RowBox[{"G11", "(", 
           RowBox[{"p", "-", "q"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             TemplateBox[{RowBox[{"bt1", "(", 
                 RowBox[{"-", "q"}], ")"}]},
              "Conjugate"], " ", 
             TemplateBox[{RowBox[{"G23", "(", 
                 RowBox[{"-", "p"}], ")"}]},
              "Conjugate"]}], "+", 
            RowBox[{
             TemplateBox[{RowBox[{"bt2", "(", 
                 RowBox[{"-", "q"}], ")"}]},
              "Conjugate"], " ", 
             RowBox[{"G33", "(", "p", ")"}]}]}], ")"}]}]}], ")"}]}], 
      RowBox[{
       RowBox[{"bt2", "(", 
        RowBox[{"-", "q"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"bt1", "(", "q", ")"}], " ", 
          TemplateBox[{RowBox[{"G12", "(", 
              RowBox[{"q", "-", "p"}], ")"}]},
           "Conjugate"], " ", 
          TemplateBox[{RowBox[{"G13", "(", 
              RowBox[{"-", "p"}], ")"}]},
           "Conjugate"]}], "+", 
         RowBox[{
          RowBox[{"bt2", "(", "q", ")"}], " ", 
          TemplateBox[{RowBox[{"G13", "(", 
              RowBox[{"q", "-", "p"}], ")"}]},
           "Conjugate"], " ", 
          TemplateBox[{RowBox[{"G13", "(", 
              RowBox[{"-", "p"}], ")"}]},
           "Conjugate"]}], "+", 
         RowBox[{
          RowBox[{"G11", "(", 
           RowBox[{"p", "-", "q"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             TemplateBox[{RowBox[{"bt1", "(", 
                 RowBox[{"-", "q"}], ")"}]},
              "Conjugate"], " ", 
             TemplateBox[{RowBox[{"G23", "(", 
                 RowBox[{"-", "p"}], ")"}]},
              "Conjugate"]}], "+", 
            RowBox[{
             TemplateBox[{RowBox[{"bt2", "(", 
                 RowBox[{"-", "q"}], ")"}]},
              "Conjugate"], " ", 
             RowBox[{"G33", "(", "p", ")"}]}]}], ")"}]}]}], ")"}]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.5085971985933743`*^9, 3.508597222132001*^9}, 
   3.508597312394518*^9, 3.508597909586225*^9, {3.5099360492081633`*^9, 
   3.509936058559229*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Tr", "[", "GaussianTerm", "]"}], "//", 
  "TraditionalForm"}]], "Input",
 CellChangeTimes->{{3.508597262600374*^9, 3.508597277397727*^9}, {
  3.509936112986228*^9, 3.509936172484655*^9}, {3.509936368669211*^9, 
  3.5099364236440277`*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    TemplateBox[{RowBox[{"bt1", "(", "q", ")"}]},
     "Conjugate"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"G12", "(", 
        RowBox[{"p", "-", "q"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"G12", "(", "p", ")"}], " ", 
          TemplateBox[{RowBox[{"bt1", "(", 
              RowBox[{"-", "q"}], ")"}]},
           "Conjugate"]}], "+", 
         RowBox[{
          RowBox[{"G13", "(", "p", ")"}], " ", 
          TemplateBox[{RowBox[{"bt2", "(", 
              RowBox[{"-", "q"}], ")"}]},
           "Conjugate"]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"bt1", "(", "q", ")"}], " ", 
       RowBox[{"G11", "(", "p", ")"}], " ", 
       RowBox[{"G22", "(", 
        RowBox[{"p", "-", "q"}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"bt2", "(", "q", ")"}], " ", 
       RowBox[{"G11", "(", "p", ")"}], " ", 
       TemplateBox[{RowBox[{"G23", "(", 
           RowBox[{"q", "-", "p"}], ")"}]},
        "Conjugate"]}]}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"bt1", "(", 
     RowBox[{"-", "q"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"G11", "(", 
        RowBox[{"p", "-", "q"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"G22", "(", "p", ")"}], " ", 
          TemplateBox[{RowBox[{"bt1", "(", 
              RowBox[{"-", "q"}], ")"}]},
           "Conjugate"]}], "+", 
         RowBox[{
          RowBox[{"G23", "(", "p", ")"}], " ", 
          TemplateBox[{RowBox[{"bt2", "(", 
              RowBox[{"-", "q"}], ")"}]},
           "Conjugate"]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"bt1", "(", "q", ")"}], " ", 
       TemplateBox[{RowBox[{"G12", "(", 
           RowBox[{"-", "p"}], ")"}]},
        "Conjugate"], " ", 
       TemplateBox[{RowBox[{"G12", "(", 
           RowBox[{"q", "-", "p"}], ")"}]},
        "Conjugate"]}], "+", 
      RowBox[{
       RowBox[{"bt2", "(", "q", ")"}], " ", 
       TemplateBox[{RowBox[{"G12", "(", 
           RowBox[{"-", "p"}], ")"}]},
        "Conjugate"], " ", 
       TemplateBox[{RowBox[{"G13", "(", 
           RowBox[{"q", "-", "p"}], ")"}]},
        "Conjugate"]}]}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"bt2", "(", 
     RowBox[{"-", "q"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"G11", "(", 
        RowBox[{"p", "-", "q"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          TemplateBox[{RowBox[{"bt1", "(", 
              RowBox[{"-", "q"}], ")"}]},
           "Conjugate"], " ", 
          TemplateBox[{RowBox[{"G23", "(", 
              RowBox[{"-", "p"}], ")"}]},
           "Conjugate"]}], "+", 
         RowBox[{
          RowBox[{"G33", "(", "p", ")"}], " ", 
          TemplateBox[{RowBox[{"bt2", "(", 
              RowBox[{"-", "q"}], ")"}]},
           "Conjugate"]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"bt1", "(", "q", ")"}], " ", 
       TemplateBox[{RowBox[{"G13", "(", 
           RowBox[{"-", "p"}], ")"}]},
        "Conjugate"], " ", 
       TemplateBox[{RowBox[{"G12", "(", 
           RowBox[{"q", "-", "p"}], ")"}]},
        "Conjugate"]}], "+", 
      RowBox[{
       RowBox[{"bt2", "(", "q", ")"}], " ", 
       TemplateBox[{RowBox[{"G13", "(", 
           RowBox[{"-", "p"}], ")"}]},
        "Conjugate"], " ", 
       TemplateBox[{RowBox[{"G13", "(", 
           RowBox[{"q", "-", "p"}], ")"}]},
        "Conjugate"]}]}], ")"}]}], "+", 
   RowBox[{
    TemplateBox[{RowBox[{"bt2", "(", "q", ")"}]},
     "Conjugate"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"G13", "(", 
        RowBox[{"p", "-", "q"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"G12", "(", "p", ")"}], " ", 
          TemplateBox[{RowBox[{"bt1", "(", 
              RowBox[{"-", "q"}], ")"}]},
           "Conjugate"]}], "+", 
         RowBox[{
          RowBox[{"G13", "(", "p", ")"}], " ", 
          TemplateBox[{RowBox[{"bt2", "(", 
              RowBox[{"-", "q"}], ")"}]},
           "Conjugate"]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"bt1", "(", "q", ")"}], " ", 
       RowBox[{"G11", "(", "p", ")"}], " ", 
       RowBox[{"G23", "(", 
        RowBox[{"p", "-", "q"}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"bt2", "(", "q", ")"}], " ", 
       RowBox[{"G11", "(", "p", ")"}], " ", 
       RowBox[{"G33", "(", 
        RowBox[{"p", "-", "q"}], ")"}]}]}], ")"}]}]}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{
  3.508597277910248*^9, 3.508597320664302*^9, 3.508597918422859*^9, {
   3.509936103267098*^9, 3.509936173842955*^9}, {3.509936391671361*^9, 
   3.509936424435171*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Collect", "[", 
   RowBox[{
    RowBox[{"Tr", "[", "GaussianTerm", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"bt1", "[", "q", "]"}], "\[Conjugate]"}], ",", 
      RowBox[{"bt1", "[", 
       RowBox[{"-", "q"}], "]"}], ",", 
      RowBox[{
       RowBox[{"bt2", "[", "q", "]"}], "\[Conjugate]"}], ",", 
      RowBox[{"bt2", "[", 
       RowBox[{"-", "q"}], "]"}]}], "}"}]}], "]"}], "//", 
  "TraditionalForm"}]], "Input",
 CellChangeTimes->{{3.508598424785213*^9, 3.508598466596058*^9}, {
  3.5085985115915203`*^9, 3.50859851343664*^9}, {3.509936221428995*^9, 
  3.509936231407352*^9}, {3.509937027126053*^9, 3.509937060499393*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    TemplateBox[{RowBox[{"bt1", "(", "q", ")"}]},
     "Conjugate"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"G12", "(", 
        RowBox[{"p", "-", "q"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"G12", "(", "p", ")"}], " ", 
          TemplateBox[{RowBox[{"bt1", "(", 
              RowBox[{"-", "q"}], ")"}]},
           "Conjugate"]}], "+", 
         RowBox[{
          RowBox[{"G13", "(", "p", ")"}], " ", 
          TemplateBox[{RowBox[{"bt2", "(", 
              RowBox[{"-", "q"}], ")"}]},
           "Conjugate"]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"bt1", "(", "q", ")"}], " ", 
       RowBox[{"G11", "(", "p", ")"}], " ", 
       RowBox[{"G22", "(", 
        RowBox[{"p", "-", "q"}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"bt2", "(", "q", ")"}], " ", 
       RowBox[{"G11", "(", "p", ")"}], " ", 
       TemplateBox[{RowBox[{"G23", "(", 
           RowBox[{"q", "-", "p"}], ")"}]},
        "Conjugate"]}]}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"bt1", "(", 
     RowBox[{"-", "q"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"G11", "(", 
        RowBox[{"p", "-", "q"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"G22", "(", "p", ")"}], " ", 
          TemplateBox[{RowBox[{"bt1", "(", 
              RowBox[{"-", "q"}], ")"}]},
           "Conjugate"]}], "+", 
         RowBox[{
          RowBox[{"G23", "(", "p", ")"}], " ", 
          TemplateBox[{RowBox[{"bt2", "(", 
              RowBox[{"-", "q"}], ")"}]},
           "Conjugate"]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"bt1", "(", "q", ")"}], " ", 
       TemplateBox[{RowBox[{"G12", "(", 
           RowBox[{"-", "p"}], ")"}]},
        "Conjugate"], " ", 
       TemplateBox[{RowBox[{"G12", "(", 
           RowBox[{"q", "-", "p"}], ")"}]},
        "Conjugate"]}], "+", 
      RowBox[{
       RowBox[{"bt2", "(", "q", ")"}], " ", 
       TemplateBox[{RowBox[{"G12", "(", 
           RowBox[{"-", "p"}], ")"}]},
        "Conjugate"], " ", 
       TemplateBox[{RowBox[{"G13", "(", 
           RowBox[{"q", "-", "p"}], ")"}]},
        "Conjugate"]}]}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"bt2", "(", 
     RowBox[{"-", "q"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"G11", "(", 
        RowBox[{"p", "-", "q"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          TemplateBox[{RowBox[{"bt1", "(", 
              RowBox[{"-", "q"}], ")"}]},
           "Conjugate"], " ", 
          TemplateBox[{RowBox[{"G23", "(", 
              RowBox[{"-", "p"}], ")"}]},
           "Conjugate"]}], "+", 
         RowBox[{
          RowBox[{"G33", "(", "p", ")"}], " ", 
          TemplateBox[{RowBox[{"bt2", "(", 
              RowBox[{"-", "q"}], ")"}]},
           "Conjugate"]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"bt1", "(", "q", ")"}], " ", 
       TemplateBox[{RowBox[{"G13", "(", 
           RowBox[{"-", "p"}], ")"}]},
        "Conjugate"], " ", 
       TemplateBox[{RowBox[{"G12", "(", 
           RowBox[{"q", "-", "p"}], ")"}]},
        "Conjugate"]}], "+", 
      RowBox[{
       RowBox[{"bt2", "(", "q", ")"}], " ", 
       TemplateBox[{RowBox[{"G13", "(", 
           RowBox[{"-", "p"}], ")"}]},
        "Conjugate"], " ", 
       TemplateBox[{RowBox[{"G13", "(", 
           RowBox[{"q", "-", "p"}], ")"}]},
        "Conjugate"]}]}], ")"}]}], "+", 
   RowBox[{
    TemplateBox[{RowBox[{"bt2", "(", "q", ")"}]},
     "Conjugate"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"G13", "(", 
        RowBox[{"p", "-", "q"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"G12", "(", "p", ")"}], " ", 
          TemplateBox[{RowBox[{"bt1", "(", 
              RowBox[{"-", "q"}], ")"}]},
           "Conjugate"]}], "+", 
         RowBox[{
          RowBox[{"G13", "(", "p", ")"}], " ", 
          TemplateBox[{RowBox[{"bt2", "(", 
              RowBox[{"-", "q"}], ")"}]},
           "Conjugate"]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"bt1", "(", "q", ")"}], " ", 
       RowBox[{"G11", "(", "p", ")"}], " ", 
       RowBox[{"G23", "(", 
        RowBox[{"p", "-", "q"}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"bt2", "(", "q", ")"}], " ", 
       RowBox[{"G11", "(", "p", ")"}], " ", 
       RowBox[{"G33", "(", 
        RowBox[{"p", "-", "q"}], ")"}]}]}], ")"}]}]}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{
  3.508598437013883*^9, 3.508598467223001*^9, 3.508598514282426*^9, 
   3.509936189475761*^9, 3.5099362227374763`*^9, 3.509936436419752*^9, {
   3.509936906085251*^9, 3.509936919996215*^9}, {3.509937054051552*^9, 
   3.509937061286147*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Expand", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.509936951186035*^9, 3.509936954022811*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{"bt2", "(", "q", ")"}], " ", 
    RowBox[{"G11", "(", "p", ")"}], " ", 
    TemplateBox[{RowBox[{"bt1", "(", "q", ")"}]},
     "Conjugate"], " ", 
    TemplateBox[{RowBox[{"G23", "(", 
        RowBox[{"q", "-", "p"}], ")"}]},
     "Conjugate"]}], "+", 
   RowBox[{
    RowBox[{"bt2", "(", 
     RowBox[{"-", "q"}], ")"}], " ", 
    TemplateBox[{RowBox[{"bt1", "(", 
        RowBox[{"-", "q"}], ")"}]},
     "Conjugate"], " ", 
    TemplateBox[{RowBox[{"G23", "(", 
        RowBox[{"-", "p"}], ")"}]},
     "Conjugate"], " ", 
    RowBox[{"G11", "(", 
     RowBox[{"p", "-", "q"}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"bt1", "(", 
     RowBox[{"-", "q"}], ")"}], " ", 
    RowBox[{"G23", "(", "p", ")"}], " ", 
    TemplateBox[{RowBox[{"bt2", "(", 
        RowBox[{"-", "q"}], ")"}]},
     "Conjugate"], " ", 
    RowBox[{"G11", "(", 
     RowBox[{"p", "-", "q"}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"bt1", "(", "q", ")"}], " ", 
    RowBox[{"G11", "(", "p", ")"}], " ", 
    TemplateBox[{RowBox[{"bt2", "(", "q", ")"}]},
     "Conjugate"], " ", 
    RowBox[{"G23", "(", 
     RowBox[{"p", "-", "q"}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"bt1", "(", "q", ")"}], " ", 
    RowBox[{"bt2", "(", 
     RowBox[{"-", "q"}], ")"}], " ", 
    TemplateBox[{RowBox[{"G13", "(", 
        RowBox[{"-", "p"}], ")"}]},
     "Conjugate"], " ", 
    TemplateBox[{RowBox[{"G12", "(", 
        RowBox[{"q", "-", "p"}], ")"}]},
     "Conjugate"]}], "+", 
   RowBox[{
    RowBox[{"bt1", "(", 
     RowBox[{"-", "q"}], ")"}], " ", 
    RowBox[{"bt2", "(", "q", ")"}], " ", 
    TemplateBox[{RowBox[{"G12", "(", 
        RowBox[{"-", "p"}], ")"}]},
     "Conjugate"], " ", 
    TemplateBox[{RowBox[{"G13", "(", 
        RowBox[{"q", "-", "p"}], ")"}]},
     "Conjugate"]}], "+", 
   RowBox[{
    RowBox[{"G13", "(", "p", ")"}], " ", 
    TemplateBox[{RowBox[{"bt1", "(", "q", ")"}]},
     "Conjugate"], " ", 
    TemplateBox[{RowBox[{"bt2", "(", 
        RowBox[{"-", "q"}], ")"}]},
     "Conjugate"], " ", 
    RowBox[{"G12", "(", 
     RowBox[{"p", "-", "q"}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"G12", "(", "p", ")"}], " ", 
    TemplateBox[{RowBox[{"bt1", "(", 
        RowBox[{"-", "q"}], ")"}]},
     "Conjugate"], " ", 
    TemplateBox[{RowBox[{"bt2", "(", "q", ")"}]},
     "Conjugate"], " ", 
    RowBox[{"G13", "(", 
     RowBox[{"p", "-", "q"}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"bt1", "(", 
     RowBox[{"-", "q"}], ")"}], " ", 
    RowBox[{"G22", "(", "p", ")"}], " ", 
    TemplateBox[{RowBox[{"bt1", "(", 
        RowBox[{"-", "q"}], ")"}]},
     "Conjugate"], " ", 
    RowBox[{"G11", "(", 
     RowBox[{"p", "-", "q"}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"bt1", "(", "q", ")"}], " ", 
    RowBox[{"G11", "(", "p", ")"}], " ", 
    TemplateBox[{RowBox[{"bt1", "(", "q", ")"}]},
     "Conjugate"], " ", 
    RowBox[{"G22", "(", 
     RowBox[{"p", "-", "q"}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"bt1", "(", 
     RowBox[{"-", "q"}], ")"}], " ", 
    RowBox[{"bt1", "(", "q", ")"}], " ", 
    TemplateBox[{RowBox[{"G12", "(", 
        RowBox[{"-", "p"}], ")"}]},
     "Conjugate"], " ", 
    TemplateBox[{RowBox[{"G12", "(", 
        RowBox[{"q", "-", "p"}], ")"}]},
     "Conjugate"]}], "+", 
   RowBox[{
    RowBox[{"G12", "(", "p", ")"}], " ", 
    TemplateBox[{RowBox[{"bt1", "(", 
        RowBox[{"-", "q"}], ")"}]},
     "Conjugate"], " ", 
    TemplateBox[{RowBox[{"bt1", "(", "q", ")"}]},
     "Conjugate"], " ", 
    RowBox[{"G12", "(", 
     RowBox[{"p", "-", "q"}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"bt2", "(", 
     RowBox[{"-", "q"}], ")"}], " ", 
    RowBox[{"G33", "(", "p", ")"}], " ", 
    TemplateBox[{RowBox[{"bt2", "(", 
        RowBox[{"-", "q"}], ")"}]},
     "Conjugate"], " ", 
    RowBox[{"G11", "(", 
     RowBox[{"p", "-", "q"}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"bt2", "(", "q", ")"}], " ", 
    RowBox[{"G11", "(", "p", ")"}], " ", 
    TemplateBox[{RowBox[{"bt2", "(", "q", ")"}]},
     "Conjugate"], " ", 
    RowBox[{"G33", "(", 
     RowBox[{"p", "-", "q"}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"bt2", "(", 
     RowBox[{"-", "q"}], ")"}], " ", 
    RowBox[{"bt2", "(", "q", ")"}], " ", 
    TemplateBox[{RowBox[{"G13", "(", 
        RowBox[{"-", "p"}], ")"}]},
     "Conjugate"], " ", 
    TemplateBox[{RowBox[{"G13", "(", 
        RowBox[{"q", "-", "p"}], ")"}]},
     "Conjugate"]}], "+", 
   RowBox[{
    RowBox[{"G13", "(", "p", ")"}], " ", 
    TemplateBox[{RowBox[{"bt2", "(", 
        RowBox[{"-", "q"}], ")"}]},
     "Conjugate"], " ", 
    TemplateBox[{RowBox[{"bt2", "(", "q", ")"}]},
     "Conjugate"], " ", 
    RowBox[{"G13", "(", 
     RowBox[{"p", "-", "q"}], ")"}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{{3.509936955343886*^9, 3.5099369625370703`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"G11G22", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"z", "+", "ep"}], ")"}], 
   RowBox[{"(", 
    RowBox[{"z", "+", "ep", "+", "et"}], ")"}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"z", "+", 
         RowBox[{"I", " ", "ql"}], "-", "ek"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"z", "+", 
         RowBox[{"I", " ", "ql"}], "+", "ek", "+", "et"}], ")"}]}], "-", 
      RowBox[{"D2", " ", 
       RowBox[{"D2", "\[Conjugate]"}]}]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"z", "-", "ep1"}], ")"}], 
      RowBox[{"(", 
       RowBox[{"z", "+", "ep2"}], ")"}], 
      RowBox[{"(", 
       RowBox[{"z", "+", "ep3"}], ")"}], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"z", "+", 
          RowBox[{"I", " ", "ql"}]}], ")"}], "-", "ek1"}], ")"}], 
      RowBox[{"(", 
       RowBox[{"z", "+", 
        RowBox[{"I", " ", "ql"}], " ", "+", "ek2"}], ")"}], 
      RowBox[{"(", 
       RowBox[{"z", "+", 
        RowBox[{"I", " ", "ql"}], " ", "+", "ek3"}], ")"}]}], 
     ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.508782785300075*^9, 3.508782811454254*^9}, {
  3.5087830012979937`*^9, 3.50878313271758*^9}, {3.508783666958848*^9, 
  3.5087836728003483`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{"ep", "+", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"ep", "+", "et", "+", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "ek"}], "+", 
        RowBox[{"\[ImaginaryI]", " ", "ql"}], "+", "z"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"ek", "+", "et", "+", 
        RowBox[{"\[ImaginaryI]", " ", "ql"}], "+", "z"}], ")"}]}], "-", 
     RowBox[{"D2", " ", 
      RowBox[{"Conjugate", "[", "D2", "]"}]}]}], ")"}]}], 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "ep1"}], "+", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"ep2", "+", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"ep3", "+", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "ek1"}], "+", 
     RowBox[{"\[ImaginaryI]", " ", "ql"}], "+", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"ek2", "+", 
     RowBox[{"\[ImaginaryI]", " ", "ql"}], "+", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"ek3", "+", 
     RowBox[{"\[ImaginaryI]", " ", "ql"}], "+", "z"}], ")"}]}]]], "Output",
 CellChangeTimes->{3.50878279177906*^9, 3.5087831345891237`*^9, 
  3.5087836754485083`*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"DetG", "[", 
    RowBox[{"z_", ",", "e1_", ",", "e2_", ",", "e3_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"z", "-", "e1"}], ")"}], 
    RowBox[{"(", 
     RowBox[{"z", "-", "e2"}], ")"}], 
    RowBox[{"(", 
     RowBox[{"z", "-", "e3"}], ")"}]}]}], ";", 
  RowBox[{
   RowBox[{"G", "[", 
    RowBox[{"z_", ",", "ex_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"z", "+", "ex"}], ")"}], 
        RowBox[{"(", 
         RowBox[{"z", "+", "ex", "+", "et"}], ")"}]}], ",", 
       RowBox[{
        RowBox[{"-", "D1"}], 
        RowBox[{"(", 
         RowBox[{"z", "+", "ex", "+", "et"}], ")"}]}], ",", 
       RowBox[{
        RowBox[{"-", "D2"}], 
        RowBox[{"(", 
         RowBox[{"z", "+", "ex"}], ")"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "D1"}], 
        RowBox[{"(", 
         RowBox[{"z", "+", "ex", "+", "et"}], ")"}]}], ",", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"z", "-", "ex"}], ")"}], 
         RowBox[{"(", 
          RowBox[{"z", "+", "ex", "+", "et"}], ")"}]}], "-", 
        RowBox[{"D2", " ", "D2C"}]}], ",", " ", 
       RowBox[{"D1C", " ", "D2"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "D2"}], 
        RowBox[{"(", 
         RowBox[{"z", "+", "ex"}], ")"}]}], ",", 
       RowBox[{"D1", " ", "D2C"}], ",", 
       RowBox[{
        RowBox[{"z", " ", "z"}], " ", "-", 
        RowBox[{"ex", "  ", "ex"}], "-", 
        RowBox[{"D1", " ", "D1C"}]}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"GG", "[", 
   RowBox[{"i1_", ",", "j1_", ",", "i2_", ",", "j2_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"G", "[", 
     RowBox[{"z", ",", "ep"}], "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"i1", ",", "j1"}], "]"}], "]"}], 
   RowBox[{
    RowBox[{
     RowBox[{"G", "[", 
      RowBox[{
       RowBox[{"z", "+", 
        RowBox[{"I", " ", "ql"}]}], ",", "ek"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"i2", ",", "j2"}], "]"}], "]"}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"DetG", "[", 
       RowBox[{"z", ",", "ep1", ",", 
        RowBox[{"-", "ep2"}], ",", 
        RowBox[{"-", "ep3"}]}], "]"}], "*", 
      RowBox[{"DetG", "[", 
       RowBox[{
        RowBox[{"z", "+", 
         RowBox[{"I", " ", "ql"}]}], ",", "ek1", ",", 
        RowBox[{"-", "ek2"}], ",", 
        RowBox[{"-", "ek3"}]}], "]"}]}], ")"}]}]}]}]}], "Input",
 CellChangeTimes->{{3.508784845872983*^9, 3.508784873445019*^9}, 
   3.5087850072066708`*^9, {3.508789114965559*^9, 3.508789127794825*^9}, {
   3.5087891628656483`*^9, 3.508789183049802*^9}, {3.508789218951832*^9, 
   3.508789244705737*^9}, {3.508789309684464*^9, 3.508789365811491*^9}, {
   3.508789400917501*^9, 3.5087894029006443`*^9}, {3.508789450846498*^9, 
   3.508789495471332*^9}, {3.5087992880381193`*^9, 3.508799315902055*^9}, {
   3.5087998336152363`*^9, 3.508799861373917*^9}, {3.508799947409277*^9, 
   3.508800017051607*^9}, {3.508800059297827*^9, 3.508800076497068*^9}, {
   3.508800789009224*^9, 3.50880078997724*^9}, {3.5088028927620497`*^9, 
   3.5088029423980093`*^9}, 3.50884706267736*^9, {3.509888434754876*^9, 
   3.509888459813245*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"cond5", "=", 
   RowBox[{"{", 
    RowBox[{"z", "\[Rule]", "ep1"}], "}"}]}], ";", 
  RowBox[{"cond1", "=", 
   RowBox[{"{", 
    RowBox[{"z", "\[Rule]", 
     RowBox[{"-", "ep2"}]}], "}"}]}], ";", 
  RowBox[{"cond2", "=", 
   RowBox[{"{", 
    RowBox[{"z", "\[Rule]", 
     RowBox[{"-", "ep3"}]}], "}"}]}], ";", 
  RowBox[{"cond6", "=", 
   RowBox[{"{", 
    RowBox[{"z", "\[Rule]", 
     RowBox[{"ek1", "-", 
      RowBox[{"I", " ", "ql"}]}]}], "}"}]}], ";", 
  RowBox[{"cond3", "=", 
   RowBox[{"{", 
    RowBox[{"z", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "ek2"}], "-", 
      RowBox[{"I", " ", "ql"}]}]}], "}"}]}], ";", 
  RowBox[{"cond4", "=", 
   RowBox[{"{", 
    RowBox[{"z", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "ek3"}], "-", 
      RowBox[{"I", " ", "ql"}]}]}], "}"}]}], ";", 
  RowBox[{"roots", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "ep2"}], ",", 
     RowBox[{"-", "ep3"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "I"}], " ", "ql"}], "-", "ek2"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "I"}], " ", "ql"}], "-", "ek3"}]}], "}"}]}], ";", 
  RowBox[{"approx", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ep1", "\[Rule]", "Ep"}], ",", 
     RowBox[{"ep2", "\[Rule]", "Ep"}], ",", 
     RowBox[{"ep3", "\[Rule]", 
      RowBox[{"ep", "+", "et"}]}], ",", 
     RowBox[{"ek1", "\[Rule]", "Ek"}], ",", 
     RowBox[{"ek2", "\[Rule]", "Ek"}], ",", 
     RowBox[{"ek3", "\[Rule]", 
      RowBox[{"ek", "+", "et"}]}]}], "}"}]}], ";", 
  RowBox[{"cond3", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ep3", "\[Rule]", 
      RowBox[{"ep", "+", "et"}]}], ",", 
     RowBox[{"ek3", "\[Rule]", 
      RowBox[{"ek", "+", "et"}]}]}], "}"}]}], ";", 
  RowBox[{"pert", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ep1", "\[Rule]", 
      RowBox[{"Ep", "+", "dtp1"}]}], ",", 
     RowBox[{"ep2", "\[Rule]", 
      RowBox[{"Ep", "+", "dtp2"}]}], ",", 
     RowBox[{"ep3", "\[Rule]", 
      RowBox[{"ep", "+", "et", "+", "dtp3"}]}], ",", 
     RowBox[{"ek1", "\[Rule]", 
      RowBox[{"Ek", "+", "dtk1"}]}], ",", 
     RowBox[{"ek2", "\[Rule]", 
      RowBox[{"Ek", "+", "dtk2"}]}], ",", 
     RowBox[{"ek3", "\[Rule]", 
      RowBox[{"ek", "+", "et", "+", "dtk3"}]}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"condConj", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"D1C", "\[Rule]", 
      RowBox[{"D1", "\[Conjugate]"}]}], ",", 
     RowBox[{"D2C", "\[Rule]", 
      RowBox[{"D2", "\[Conjugate]"}]}]}], "}"}]}], ";", 
  RowBox[{"wickCon", "=", 
   RowBox[{"{", 
    RowBox[{"ql", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "wq"}], " ", "I"}]}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.508783196066792*^9, 3.508783341568725*^9}, {
   3.5087835813484793`*^9, 3.508783609843959*^9}, {3.508783766426448*^9, 
   3.50878393450109*^9}, {3.508805054337679*^9, 3.508805080286573*^9}, {
   3.509888534067575*^9, 3.509888615051086*^9}, 3.509888698302719*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"ql", "\[Rule]", 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", "wq"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5098886952632513`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"sumFreq", "[", "fun_", "]"}], ":=", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{"Residue", "[", 
     RowBox[{"fun", ",", 
      RowBox[{"{", 
       RowBox[{"z", ",", "x"}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "roots"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.508800291453182*^9, 3.50880034902318*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"h1122", "=", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{"Residue", "[", 
     RowBox[{"G11G22", ",", 
      RowBox[{"{", 
       RowBox[{"z", ",", "x"}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "roots"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.508783395087091*^9, 3.508783442585579*^9}, {
  3.508783536644799*^9, 3.5087835728110533`*^9}, {3.508783616318417*^9, 
  3.508783644292609*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"ek2", "-", "ep", "+", 
       RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"ek2", "-", "ep", "-", "et", "+", 
       RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["ek", "2"]}], "+", 
       SuperscriptBox["ek2", "2"], "-", 
       RowBox[{"ek", " ", "et"}], "-", 
       RowBox[{"ek2", " ", "et"}], "-", 
       RowBox[{"D2", " ", 
        RowBox[{"Conjugate", "[", "D2", "]"}]}]}], ")"}]}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"ek1", "+", "ek2"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"ek2", "-", "ek3"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"ek2", "+", "ep1", "+", 
       RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"ek2", "-", "ep2", "+", 
       RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"ek2", "-", "ep3", "+", 
       RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]]}], "-", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ek3", "-", "ep", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "-", "ep", "-", "et", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["ek", "2"]}], "+", 
      SuperscriptBox["ek3", "2"], "-", 
      RowBox[{"ek", " ", "et"}], "-", 
      RowBox[{"ek3", " ", "et"}], "-", 
      RowBox[{"D2", " ", 
       RowBox[{"Conjugate", "[", "D2", "]"}]}]}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ek3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek2"}], "+", "ek3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "+", "ep1", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "-", "ep2", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "-", "ep3", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "-", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ep", "-", "ep2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ep", "-", "ep2", "+", "et"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["ek", "2"]}], "+", 
      SuperscriptBox["ep2", "2"], "-", 
      RowBox[{"ek", " ", "et"}], "-", 
      RowBox[{"ep2", " ", "et"}], "-", 
      RowBox[{"2", " ", "\[ImaginaryI]", " ", "ep2", " ", "ql"}], "+", 
      RowBox[{"\[ImaginaryI]", " ", "et", " ", "ql"}], "-", 
      SuperscriptBox["ql", "2"], "-", 
      RowBox[{"D2", " ", 
       RowBox[{"Conjugate", "[", "D2", "]"}]}]}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ep1", "+", "ep2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ep2", "-", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ep2", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek2"}], "+", "ep2", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek3"}], "+", "ep2", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "-", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ep", "-", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ep", "-", "ep3", "+", "et"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["ek", "2"]}], "+", 
      SuperscriptBox["ep3", "2"], "-", 
      RowBox[{"ek", " ", "et"}], "-", 
      RowBox[{"ep3", " ", "et"}], "-", 
      RowBox[{"2", " ", "\[ImaginaryI]", " ", "ep3", " ", "ql"}], "+", 
      RowBox[{"\[ImaginaryI]", " ", "et", " ", "ql"}], "-", 
      SuperscriptBox["ql", "2"], "-", 
      RowBox[{"D2", " ", 
       RowBox[{"Conjugate", "[", "D2", "]"}]}]}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ep1", "+", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ep2"}], "+", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek2"}], "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek3"}], "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{{3.5087834157823553`*^9, 3.508783443301978*^9}, 
   3.508783673514687*^9, 3.508783716853163*^9, 3.508847213109726*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Collect", "[", 
   RowBox[{"h1122", ",", 
    RowBox[{"D2", " ", 
     RowBox[{"Conjugate", "[", "D2", "]"}]}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.50878393763723*^9, 3.5087839853365*^9}, 
   3.50878510594244*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{
     SuperscriptBox["ek", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "ep"}], "+", "ep2"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"ep", "-", "ep2", "+", "et"}], ")"}]}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"ep1", "+", "ep2"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"ep2", "-", "ep3"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"ek1", "+", "ep2", "-", 
       RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "ek2"}], "+", "ep2", "-", 
       RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "ek3"}], "+", "ep2", "-", 
       RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]]}], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["ep2", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ep"}], "+", "ep2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ep", "-", "ep2", "+", "et"}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ep1", "+", "ep2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ep2", "-", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ep2", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek2"}], "+", "ep2", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek3"}], "+", "ep2", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "-", 
  FractionBox[
   RowBox[{"ek", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ep"}], "+", "ep2"}], ")"}], " ", "et", " ", 
    RowBox[{"(", 
     RowBox[{"ep", "-", "ep2", "+", "et"}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ep1", "+", "ep2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ep2", "-", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ep2", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek2"}], "+", "ep2", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek3"}], "+", "ep2", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "-", 
  FractionBox[
   RowBox[{"ep2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ep"}], "+", "ep2"}], ")"}], " ", "et", " ", 
    RowBox[{"(", 
     RowBox[{"ep", "-", "ep2", "+", "et"}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ep1", "+", "ep2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ep2", "-", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ep2", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek2"}], "+", "ep2", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek3"}], "+", "ep2", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["ek", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ep"}], "+", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ep", "-", "ep3", "+", "et"}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ep1", "+", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ep2"}], "+", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek2"}], "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek3"}], "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["ep3", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ep"}], "+", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ep", "-", "ep3", "+", "et"}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ep1", "+", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ep2"}], "+", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek2"}], "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek3"}], "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "-", 
  FractionBox[
   RowBox[{"ek", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ep"}], "+", "ep3"}], ")"}], " ", "et", " ", 
    RowBox[{"(", 
     RowBox[{"ep", "-", "ep3", "+", "et"}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ep1", "+", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ep2"}], "+", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek2"}], "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek3"}], "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "-", 
  FractionBox[
   RowBox[{"ep3", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ep"}], "+", "ep3"}], ")"}], " ", "et", " ", 
    RowBox[{"(", 
     RowBox[{"ep", "-", "ep3", "+", "et"}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ep1", "+", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ep2"}], "+", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek2"}], "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek3"}], "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["ek", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "-", "ep", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "-", "ep", "-", "et", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ek2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "-", "ek3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "+", "ep1", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "-", "ep2", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "-", "ep3", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["ek2", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "-", "ep", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "-", "ep", "-", "et", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ek2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "-", "ek3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "+", "ep1", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "-", "ep2", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "-", "ep3", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "+", 
  FractionBox[
   RowBox[{"ek", " ", "et", " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "-", "ep", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "-", "ep", "-", "et", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ek2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "-", "ek3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "+", "ep1", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "-", "ep2", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "-", "ep3", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "+", 
  FractionBox[
   RowBox[{"ek2", " ", "et", " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "-", "ep", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "-", "ep", "-", "et", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ek2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "-", "ek3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "+", "ep1", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "-", "ep2", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "-", "ep3", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["ek", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "-", "ep", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "-", "ep", "-", "et", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ek3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek2"}], "+", "ek3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "+", "ep1", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "-", "ep2", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "-", "ep3", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["ek3", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "-", "ep", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "-", "ep", "-", "et", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ek3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek2"}], "+", "ek3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "+", "ep1", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "-", "ep2", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "-", "ep3", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "+", 
  FractionBox[
   RowBox[{"ek", " ", "et", " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "-", "ep", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "-", "ep", "-", "et", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ek3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek2"}], "+", "ek3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "+", "ep1", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "-", "ep2", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "-", "ep3", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "+", 
  FractionBox[
   RowBox[{"ek3", " ", "et", " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "-", "ep", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "-", "ep", "-", "et", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ek3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek2"}], "+", "ek3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "+", "ep1", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "-", "ep2", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "-", "ep3", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "-", 
  FractionBox[
   RowBox[{"2", " ", "\[ImaginaryI]", " ", "ep2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ep"}], "+", "ep2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ep", "-", "ep2", "+", "et"}], ")"}], " ", "ql"}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ep1", "+", "ep2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ep2", "-", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ep2", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek2"}], "+", "ep2", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek3"}], "+", "ep2", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ep"}], "+", "ep2"}], ")"}], " ", "et", " ", 
    RowBox[{"(", 
     RowBox[{"ep", "-", "ep2", "+", "et"}], ")"}], " ", "ql"}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ep1", "+", "ep2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ep2", "-", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ep2", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek2"}], "+", "ep2", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek3"}], "+", "ep2", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "-", 
  FractionBox[
   RowBox[{"2", " ", "\[ImaginaryI]", " ", "ep3", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ep"}], "+", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ep", "-", "ep3", "+", "et"}], ")"}], " ", "ql"}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ep1", "+", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ep2"}], "+", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek2"}], "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek3"}], "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ep"}], "+", "ep3"}], ")"}], " ", "et", " ", 
    RowBox[{"(", 
     RowBox[{"ep", "-", "ep3", "+", "et"}], ")"}], " ", "ql"}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ep1", "+", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ep2"}], "+", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek2"}], "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek3"}], "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "-", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ep"}], "+", "ep2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ep", "-", "ep2", "+", "et"}], ")"}], " ", 
    SuperscriptBox["ql", "2"]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ep1", "+", "ep2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ep2", "-", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ep2", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek2"}], "+", "ep2", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek3"}], "+", "ep2", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "-", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ep"}], "+", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ep", "-", "ep3", "+", "et"}], ")"}], " ", 
    SuperscriptBox["ql", "2"]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ep1", "+", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ep2"}], "+", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek2"}], "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek3"}], "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "+", 
  RowBox[{"D2", " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ep", "-", "ep2"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"ep", "-", "ep2", "+", "et"}], ")"}]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ep1", "+", "ep2"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"ep2", "-", "ep3"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"ek1", "+", "ep2", "-", 
         RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "ek2"}], "+", "ep2", "-", 
         RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "ek3"}], "+", "ep2", "-", 
         RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ep", "-", "ep3"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"ep", "-", "ep3", "+", "et"}], ")"}]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ep1", "+", "ep3"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "ep2"}], "+", "ep3"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"ek1", "+", "ep3", "-", 
         RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "ek2"}], "+", "ep3", "-", 
         RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "ek3"}], "+", "ep3", "-", 
         RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ek2", "-", "ep", "+", 
         RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"ek2", "-", "ep", "-", "et", "+", 
         RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ek1", "+", "ek2"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"ek2", "-", "ek3"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"ek2", "+", "ep1", "+", 
         RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"ek2", "-", "ep2", "+", 
         RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"ek2", "-", "ep3", "+", 
         RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ek3", "-", "ep", "+", 
         RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"ek3", "-", "ep", "-", "et", "+", 
         RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ek1", "+", "ek3"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "ek2"}], "+", "ek3"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"ek3", "+", "ep1", "+", 
         RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"ek3", "-", "ep2", "+", 
         RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"ek3", "-", "ep3", "+", 
         RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]]}], ")"}], " ", 
   RowBox[{"Conjugate", "[", "D2", "]"}]}]}]], "Output",
 CellChangeTimes->{3.50878394221275*^9, 3.508783985905357*^9}]
}, Closed]],

Cell[BoxData[
 RowBox[{
  RowBox[{"h1122D", "=", 
   RowBox[{
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"ep", "-", "ep2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"ep", "-", "ep2", "+", "et"}], ")"}]}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"ep1", "+", "ep2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"ep2", "-", "ep3"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"ek1", "+", "ep2", "-", 
        RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "ek2"}], "+", "ep2", "-", 
        RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "ek3"}], "+", "ep2", "-", 
        RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "+", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"ep", "-", "ep3"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"ep", "-", "ep3", "+", "et"}], ")"}]}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"ep1", "+", "ep3"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "ep2"}], "+", "ep3"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"ek1", "+", "ep3", "-", 
        RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "ek2"}], "+", "ep3", "-", 
        RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "ek3"}], "+", "ep3", "-", 
        RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "+", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"ek2", "-", "ep", "+", 
        RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"ek2", "-", "ep", "-", "et", "+", 
        RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"ek1", "+", "ek2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"ek2", "-", "ek3"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"ek2", "+", "ep1", "+", 
        RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"ek2", "-", "ep2", "+", 
        RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"ek2", "-", "ep3", "+", 
        RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "+", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"ek3", "-", "ep", "+", 
        RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"ek3", "-", "ep", "-", "et", "+", 
        RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"ek1", "+", "ek3"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "ek2"}], "+", "ek3"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"ek3", "+", "ep1", "+", 
        RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"ek3", "-", "ep2", "+", 
        RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"ek3", "-", "ep3", "+", 
        RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]]}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.50878297286201*^9, 3.508782982790963*^9}, {
   3.508784015145718*^9, 3.508784019250442*^9}, 3.508786499456656*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"h1122D", "/.", "approx"}]], "Input",
 CellChangeTimes->{{3.5087840951495037`*^9, 3.508784100711298*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ep", "-", "Ep"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ep", "-", "Ep", "+", "et"}], ")"}]}], 
   RowBox[{"2", " ", "Ep", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ep"}], "+", "Ep", "-", "et"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "Ek"}], "+", "Ep", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"Ek", "+", "Ep", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek"}], "+", "Ep", "-", "et", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "+", 
  FractionBox[
   RowBox[{"Ek", "-", "ep", "+", 
    RowBox[{"\[ImaginaryI]", " ", "ql"}]}], 
   RowBox[{"2", " ", "Ek", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek"}], "+", "Ek", "-", "et"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"Ek", "-", "Ep", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"Ek", "+", "Ep", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "+", 
  FractionBox[
   RowBox[{"ek", "-", "ep", "+", "et", "+", 
    RowBox[{"\[ImaginaryI]", " ", "ql"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ek", "-", "Ek", "+", "et"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek", "+", "Ek", "+", "et"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek", "-", "Ep", "+", "et", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek", "+", "Ep", "+", "et", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{3.508784101361917*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.508784104891025*^9, 3.508784110046144*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"Ek", "+", "Ep"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ek", " ", "ep"}], "+", 
       RowBox[{"Ek", " ", 
        RowBox[{"(", 
         RowBox[{"ep", "+", "Ep"}], ")"}]}], "+", 
       RowBox[{"ep", " ", 
        RowBox[{"(", 
         RowBox[{"Ep", "+", "et"}], ")"}]}]}], ")"}]}], "-", 
    RowBox[{"\[ImaginaryI]", " ", "Ep", " ", 
     RowBox[{"(", 
      RowBox[{"ek", "+", "Ek", "-", "ep", "+", "Ep", "+", "et"}], ")"}], " ", 
     "ql"}], "+", 
    RowBox[{"Ep", " ", 
     SuperscriptBox["ql", "2"]}]}], 
   RowBox[{"2", " ", "Ek", " ", "Ep", " ", 
    RowBox[{"(", 
     RowBox[{"ek", "+", "Ek", "+", "et"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"Ek", "+", "Ep", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"Ek", "+", "Ep", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek", "+", "Ep", "+", "et", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{3.508784110810574*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"h1122noD", "=", 
  RowBox[{"FullSimplify", "[", 
   RowBox[{"h1122", "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"D2", "\[Rule]", "0"}], ",", 
      RowBox[{"ek3", "\[Rule]", 
       RowBox[{"ek", "+", "et"}]}], ",", 
      RowBox[{"ep3", "\[Rule]", 
       RowBox[{"ep", "+", "et"}]}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5087844693688498`*^9, 3.5087845504710484`*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"ek", "-", "ek1"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"ep", "-", "ep2"}], ")"}]}], 
     RowBox[{"ek1", "+", "ep2", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}]], "+", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"ek", "+", "ek2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"ep", "+", "ep1"}], ")"}]}], 
     RowBox[{"ek2", "+", "ep1", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}]]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ek2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ep1", "+", "ep2"}], ")"}]}]]}]], "Output",
 CellChangeTimes->{
  3.508784483747347*^9, {3.5087845409370813`*^9, 3.508784552100045*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"G11G33", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"G", "[", 
     RowBox[{"z", ",", "ep"}], "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "1"}], "]"}], "]"}], 
   RowBox[{
    RowBox[{
     RowBox[{"G", "[", 
      RowBox[{
       RowBox[{"z", "+", 
        RowBox[{"I", " ", "ql"}]}], ",", "ek"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"3", ",", "3"}], "]"}], "]"}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"DetG", "[", 
       RowBox[{"z", ",", "ep1", ",", 
        RowBox[{"-", "ep2"}], ",", 
        RowBox[{"-", "ep3"}]}], "]"}], "*", 
      RowBox[{"DetG", "[", 
       RowBox[{
        RowBox[{"z", "+", 
         RowBox[{"I", " ", "ql"}]}], ",", "ek1", ",", 
        RowBox[{"-", "ek2"}], ",", 
        RowBox[{"-", "ek3"}]}], "]"}]}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.508800094902622*^9, 3.508800213117682*^9}, {
  3.50880026385581*^9, 3.508800275854047*^9}, {3.50880059696037*^9, 
  3.5088006085682096`*^9}, {3.508802855735117*^9, 3.508802870239389*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{"ep", "+", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"ep", "+", "et", "+", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "D1"}], " ", "D1C"}], "-", 
     SuperscriptBox["ek", "2"], "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"\[ImaginaryI]", " ", "ql"}], "+", "z"}], ")"}], "2"]}], 
    ")"}]}], 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "ep1"}], "+", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"ep2", "+", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"ep3", "+", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "ek1"}], "+", 
     RowBox[{"\[ImaginaryI]", " ", "ql"}], "+", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"ek2", "+", 
     RowBox[{"\[ImaginaryI]", " ", "ql"}], "+", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"ek3", "+", 
     RowBox[{"\[ImaginaryI]", " ", "ql"}], "+", "z"}], ")"}]}]]], "Output",
 CellChangeTimes->{
  3.508800243831468*^9, 3.508800276543737*^9, 3.508800609273458*^9, {
   3.508800795248711*^9, 3.508800817484454*^9}, 3.509888497496818*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"h1133", "=", 
  RowBox[{"sumFreq", "[", "G11G33", "]"}]}]], "Input",
 CellChangeTimes->{{3.508800355508293*^9, 3.508800369470187*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "D1"}], " ", "D1C"}], "-", 
       SuperscriptBox["ek", "2"], "+", 
       SuperscriptBox["ek2", "2"]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"ek2", "-", "ep", "+", 
       RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"ek2", "-", "ep", "-", "et", "+", 
       RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"ek1", "+", "ek2"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"ek2", "-", "ek3"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"ek2", "+", "ep1", "+", 
       RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"ek2", "-", "ep2", "+", 
       RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"ek2", "-", "ep3", "+", 
       RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]]}], "-", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "D1"}], " ", "D1C"}], "-", 
      SuperscriptBox["ek", "2"], "+", 
      SuperscriptBox["ek3", "2"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "-", "ep", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "-", "ep", "-", "et", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ek3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek2"}], "+", "ek3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "+", "ep1", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "-", "ep2", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "-", "ep3", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "-", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ep", "-", "ep2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ep", "-", "ep2", "+", "et"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "D1"}], " ", "D1C"}], "-", 
      SuperscriptBox["ek", "2"], "+", 
      SuperscriptBox["ep2", "2"], "-", 
      RowBox[{"2", " ", "\[ImaginaryI]", " ", "ep2", " ", "ql"}], "-", 
      SuperscriptBox["ql", "2"]}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ep1", "+", "ep2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ep2", "-", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ep2", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek2"}], "+", "ep2", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek3"}], "+", "ep2", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "-", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ep", "-", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ep", "-", "ep3", "+", "et"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "D1"}], " ", "D1C"}], "-", 
      SuperscriptBox["ek", "2"], "+", 
      SuperscriptBox["ep3", "2"], "-", 
      RowBox[{"2", " ", "\[ImaginaryI]", " ", "ep3", " ", "ql"}], "-", 
      SuperscriptBox["ql", "2"]}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ep1", "+", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ep2"}], "+", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek2"}], "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek3"}], "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{3.508800373683345*^9, 3.5088006487042837`*^9, 
  3.508800857433999*^9, 3.50988854286482*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"FullSimplify", "[", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"h1133", "/.", "condConj"}], ")"}], "/.", "wickCon"}], "]"}], "//",
   "TraditionalForm"}]], "Input",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.509888712175902*^9, 3.5098887592542877`*^9}, {
  3.509888794883768*^9, 3.5098888111792994`*^9}, {3.509888871462591*^9, 
  3.509888878381675*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"ek2", "-", "ep", "+", "wq"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox[
        TemplateBox[{"D1"},
         "Abs"], "2"], "+", 
       SuperscriptBox["ek", "2"], "-", 
       SuperscriptBox["ek2", "2"]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"ek2", "-", "ep", "-", "et", "+", "wq"}], ")"}]}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"ek1", "+", "ek2"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"ek2", "-", "ek3"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"ek2", "+", "ep1", "+", "wq"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"ek2", "-", "ep2", "+", "wq"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"ek2", "-", "ep3", "+", "wq"}], ")"}]}]], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"ek3", "-", "ep", "+", "wq"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox[
        TemplateBox[{"D1"},
         "Abs"], "2"], "+", 
       SuperscriptBox["ek", "2"], "-", 
       SuperscriptBox["ek3", "2"]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"ek3", "-", "ep", "-", "et", "+", "wq"}], ")"}]}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"ek1", "+", "ek3"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"ek3", "-", "ek2"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"ek3", "+", "ep1", "+", "wq"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"ek3", "-", "ep2", "+", "wq"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"ek3", "-", "ep3", "+", "wq"}], ")"}]}]], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"ep", "-", "ep2"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"ep", "-", "ep2", "+", "et"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox[
        TemplateBox[{"D1"},
         "Abs"], "2"], "+", 
       SuperscriptBox["ek", "2"], "-", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"ep2", "-", "wq"}], ")"}], "2"]}], ")"}]}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"ep1", "+", "ep2"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"ep2", "-", "ep3"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"ek1", "+", "ep2", "-", "wq"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "ek2"}], "+", "ep2", "-", "wq"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "ek3"}], "+", "ep2", "-", "wq"}], ")"}]}]], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"ep", "-", "ep3"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"ep", "-", "ep3", "+", "et"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox[
        TemplateBox[{"D1"},
         "Abs"], "2"], "+", 
       SuperscriptBox["ek", "2"], "-", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"ep3", "-", "wq"}], ")"}], "2"]}], ")"}]}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"ep1", "+", "ep3"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"ep3", "-", "ep2"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"ek1", "+", "ep3", "-", "wq"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "ek2"}], "+", "ep3", "-", "wq"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "ek3"}], "+", "ep3", "-", "wq"}], ")"}]}]]}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.509888726596093*^9, 3.509888761587379*^9}, 
   3.509888814978441*^9, 3.5098889792133913`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"h1133", "/.", "approx"}]], "Input",
 CellChangeTimes->{{3.508801024192856*^9, 3.5088010320729637`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"ep", "-", "Ep"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"ep", "-", "Ep", "+", "et"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["ek", "2"]}], "+", 
       SuperscriptBox["Ep", "2"], "-", 
       RowBox[{"D1", " ", 
        RowBox[{"Conjugate", "[", "D1", "]"}]}]}], ")"}]}], 
    RowBox[{"2", " ", "Ep", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "ep"}], "+", "Ep", "-", "et"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "Ek"}], "+", "Ep", "-", 
       RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"Ek", "+", "Ep", "-", 
       RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "ek"}], "+", "Ep", "-", "et", "-", 
       RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]]}], "-", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"Ek", "-", "ep", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["ek", "2"]}], "+", 
      SuperscriptBox["Ek", "2"], "+", 
      RowBox[{"2", " ", "\[ImaginaryI]", " ", "Ek", " ", "ql"}], "-", 
      SuperscriptBox["ql", "2"], "-", 
      RowBox[{"D1", " ", 
       RowBox[{"Conjugate", "[", "D1", "]"}]}]}], ")"}]}], 
   RowBox[{"2", " ", "Ek", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek"}], "+", "Ek", "-", "et"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"Ek", "-", "Ep", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"Ek", "+", "Ep", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "-", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ek", "-", "ep", "+", "et", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["ek", "2"]}], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"ek", "+", "et"}], ")"}], "2"], "+", 
      RowBox[{"2", " ", "\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{"ek", "+", "et"}], ")"}], " ", "ql"}], "-", 
      SuperscriptBox["ql", "2"], "-", 
      RowBox[{"D1", " ", 
       RowBox[{"Conjugate", "[", "D1", "]"}]}]}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ek", "-", "Ek", "+", "et"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek", "+", "Ek", "+", "et"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek", "-", "Ep", "+", "et", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek", "+", "Ep", "+", "et", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{3.508801035787261*^9, 3.508802604224262*^9, 
  3.5088472132567*^9, 3.5088472446334047`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"%", "/.", 
   RowBox[{"D1", "\[Rule]", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.508801040155984*^9, 3.508801044416654*^9}, {
  3.508801135210299*^9, 3.508801139178203*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{
    FractionBox[
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"ek", "-", "Ep"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"ek", "+", "Ep"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"ep", "+", "Ep"}], ")"}]}], 
       RowBox[{"Ep", " ", 
        RowBox[{"(", 
         RowBox[{"ek", "-", "Ek", "+", "et"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"ek", "+", "Ep", "+", "et", "+", 
          RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]]}], 
     RowBox[{"ek", "+", "Ek", "+", "et"}]], "+", 
    FractionBox[
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", "ep"}], 
        RowBox[{"ek", "+", "Ek", "+", "et"}]]}], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"ek", "-", "Ep"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"ek", "+", "Ep"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "ep"}], "+", "Ep"}], ")"}]}], 
       RowBox[{"Ep", " ", 
        RowBox[{"(", 
         RowBox[{"ek", "+", "Ek", "+", "et"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"Ek", "+", "Ep", "-", 
          RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "ek"}], "+", "Ep"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"ek", "+", "Ep"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"ep", "+", "Ep"}], ")"}]}], 
       RowBox[{"Ep", " ", 
        RowBox[{"(", 
         RowBox[{"ek", "-", "Ek", "+", "et"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"Ek", "+", "Ep", "+", 
          RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "+", 
      FractionBox[
       RowBox[{"2", " ", "\[ImaginaryI]", " ", "ql"}], 
       RowBox[{"ek", "+", "Ek", "+", "et"}]]}], 
     RowBox[{"2", " ", "Ek"}]]}], ")"}]}]], "Output",
 CellChangeTimes->{3.508801062025506*^9, 3.508801144749796*^9, 
  3.508802614159956*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"%", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Ek", "\[Rule]", "ek"}], ",", 
     RowBox[{"Ep", "\[Rule]", "ep"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.508802464497888*^9, 3.508802496186471*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    RowBox[{"2", " ", "ek", " ", 
     RowBox[{"(", 
      RowBox[{"ek", "+", "ep"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "ek"}], "+", "et"}], ")"}]}], "+", 
    RowBox[{"2", " ", "\[ImaginaryI]", " ", "ek", " ", 
     RowBox[{"(", 
      RowBox[{"ek", "+", "ep"}], ")"}], " ", "ql"}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"ek", "+", "ep", "+", "et"}], ")"}], " ", 
     SuperscriptBox["ql", "2"]}], "+", 
    RowBox[{"\[ImaginaryI]", " ", 
     SuperscriptBox["ql", "3"]}]}], 
   RowBox[{"2", " ", "ek", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", "ek"}], "+", "et"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek", "+", "ep", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek", "+", "ep", "+", "et", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{3.5088024968959913`*^9, 3.508802621950985*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"G13G13", "=", 
  RowBox[{"GG", "[", 
   RowBox[{"1", ",", "3", ",", "1", ",", "3"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.508802824881181*^9, 3.508802843438932*^9}, {
  3.508802992424211*^9, 3.508803004687252*^9}, {3.5088037977745457`*^9, 
  3.508803804324473*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["D2", "2"], " ", 
   RowBox[{"(", 
    RowBox[{"ep", "+", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"ek", "+", 
     RowBox[{"\[ImaginaryI]", " ", "ql"}], "+", "z"}], ")"}]}], 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "ep1"}], "+", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"ep2", "+", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"ep3", "+", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "ek1"}], "+", 
     RowBox[{"\[ImaginaryI]", " ", "ql"}], "+", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"ek2", "+", 
     RowBox[{"\[ImaginaryI]", " ", "ql"}], "+", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"ek3", "+", 
     RowBox[{"\[ImaginaryI]", " ", "ql"}], "+", "z"}], ")"}]}]]], "Output",
 CellChangeTimes->{3.508803005612212*^9, 3.508803805407774*^9, 
  3.50988886466571*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"h1313", "=", 
  RowBox[{"sumFreq", "[", "G13G13", "]"}]}]], "Input",
 CellChangeTimes->{{3.508803840806552*^9, 3.5088038600155087`*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    SuperscriptBox["D2", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"ep", "-", "ep2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek"}], "+", "ep2", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ep1", "+", "ep2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ep2", "-", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ep2", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek2"}], "+", "ep2", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek3"}], "+", "ep2", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["D2", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"ep", "-", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek"}], "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ep1", "+", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ep2"}], "+", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek2"}], "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek3"}], "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["D2", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"ek", "-", "ek2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "-", "ep", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ek2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "-", "ek3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "+", "ep1", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "-", "ep2", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "-", "ep3", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["D2", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"ek", "-", "ek3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "-", "ep", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ek3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek2"}], "+", "ek3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "+", "ep1", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "-", "ep2", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "-", "ep3", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{{3.50880384924541*^9, 3.5088038643106937`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"h1313", "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"ek3", "\[Rule]", 
     RowBox[{"ek", "+", "et"}]}], ",", 
    RowBox[{"ep3", "\[Rule]", 
     RowBox[{"ep", "+", "et"}]}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.508803889012233*^9, 3.508803907384677*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    SuperscriptBox["D2", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"ep", "-", "ep2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek"}], "+", "ep2", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ep1", "+", "ep2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ep"}], "+", "ep2", "-", "et"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ep2", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek2"}], "+", "ep2", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek"}], "+", "ep2", "-", "et", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["D2", "2"], " ", "et", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek"}], "+", "ep", "+", "et", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ep", "+", "ep1", "+", "et"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ep", "-", "ep2", "+", "et"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek"}], "+", "ep", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ep", "+", "et", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek2"}], "+", "ep", "+", "et", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["D2", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"ek", "-", "ek2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "-", "ep", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ek2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek"}], "+", "ek2", "-", "et"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "+", "ep1", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "-", "ep2", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "-", "ep", "-", "et", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["D2", "2"], " ", "et", " ", 
    RowBox[{"(", 
     RowBox[{"ek", "-", "ep", "+", "et", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ek", "+", "ek1", "+", "et"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek", "-", "ek2", "+", "et"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek", "-", "ep", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek", "+", "ep1", "+", "et", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek", "-", "ep2", "+", "et", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{3.508803908567484*^9, 3.508847238629898*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.508803916369567*^9, 3.508803923902323*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "\[ImaginaryI]"}], " ", 
  SuperscriptBox["D2", "2"], " ", 
  RowBox[{"(", 
   RowBox[{
    FractionBox[
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{"(", 
       RowBox[{"ek", "+", "ek1"}], ")"}], " ", "et"}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"ek1", "+", "ek2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"ek", "+", "ek1", "+", "et"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"ep", "+", "ep1", "+", "et"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"ep", "-", "ep2", "+", "et"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"ek1", "+", "ep", "+", "et", "-", 
        RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "-", 
    FractionBox[
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{"(", 
       RowBox[{"ek", "-", "ek2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"ep", "+", "ep1"}], ")"}]}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"ek1", "+", "ek2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"ep1", "+", "ep2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "ek"}], "+", "ek2", "-", "et"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"ep", "+", "ep1", "+", "et"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"ek2", "+", "ep1", "+", 
        RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "+", 
    FractionBox[
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{"(", 
       RowBox[{"ep", "+", "ep1"}], ")"}], " ", "et"}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"ep1", "+", "ep2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"ek", "+", "ek1", "+", "et"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"ek", "-", "ek2", "+", "et"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"ep", "+", "ep1", "+", "et"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"ek", "+", "ep1", "+", "et", "+", 
        RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "-", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"ek", "+", "ek1"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"ep", "-", "ep2"}], ")"}]}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"ek1", "+", "ek2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"ep1", "+", "ep2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"ek", "+", "ek1", "+", "et"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"ep", "-", "ep2", "+", "et"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{"ek1", "+", "ep2"}], ")"}]}], "+", "ql"}], ")"}]}]]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{3.508803942590392*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"G12G13", "=", 
  RowBox[{"GG", "[", 
   RowBox[{"1", ",", "2", ",", "1", ",", "3"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.508804491424367*^9, 3.5088045020280857`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"D1", " ", "D2", " ", 
   RowBox[{"(", 
    RowBox[{"ep", "+", "et", "+", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"ek", "+", 
     RowBox[{"\[ImaginaryI]", " ", "ql"}], "+", "z"}], ")"}]}], 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "ep1"}], "+", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"ep2", "+", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"ep3", "+", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "ek1"}], "+", 
     RowBox[{"\[ImaginaryI]", " ", "ql"}], "+", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"ek2", "+", 
     RowBox[{"\[ImaginaryI]", " ", "ql"}], "+", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"ek3", "+", 
     RowBox[{"\[ImaginaryI]", " ", "ql"}], "+", "z"}], ")"}]}]]], "Output",
 CellChangeTimes->{3.5088045026221247`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"h1213", "=", 
  RowBox[{"sumFreq", "[", "G12G13", "]"}]}]], "Input",
 CellChangeTimes->{{3.508804508588632*^9, 3.5088045258526993`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"D1", " ", "D2", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "ep"}], "+", "ep2", "-", "et"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "ek"}], "+", "ep2", "-", 
       RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"ep1", "+", "ep2"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"ep2", "-", "ep3"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"ek1", "+", "ep2", "-", 
       RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "ek2"}], "+", "ep2", "-", 
       RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "ek3"}], "+", "ep2", "-", 
       RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]]}], "+", 
  FractionBox[
   RowBox[{"D1", " ", "D2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ep"}], "+", "ep3", "-", "et"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek"}], "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ep2", "-", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ep1", "+", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek2"}], "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek3"}], "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "+", 
  FractionBox[
   RowBox[{"D1", " ", "D2", " ", 
    RowBox[{"(", 
     RowBox[{"ek", "-", "ek2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "-", "ep", "-", "et", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ek2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "-", "ek3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "+", "ep1", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "-", "ep2", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "-", "ep3", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "+", 
  FractionBox[
   RowBox[{"D1", " ", "D2", " ", 
    RowBox[{"(", 
     RowBox[{"ek", "-", "ek3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "-", "ep", "-", "et", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ek3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek2"}], "+", "ek3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "+", "ep1", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "-", "ep2", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "-", "ep3", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{{3.5088045178186274`*^9, 3.5088045339614983`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"h1213", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ek3", "\[Rule]", 
      RowBox[{"ek", "+", "et"}]}], ",", 
     RowBox[{"ep3", "\[Rule]", 
      RowBox[{"ep", "+", "et"}]}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.508804593262137*^9, 3.50880460166255*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"D1", " ", "D2", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox["ek", "2"], " ", 
      RowBox[{"(", 
       RowBox[{"ek1", "+", "ek2", "+", "ep1", "+", "ep2"}], ")"}]}], "-", 
     RowBox[{"ek2", " ", "et", " ", 
      RowBox[{"(", 
       RowBox[{"ep2", "-", 
        RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}], "+", 
     RowBox[{
      SuperscriptBox["ek1", "2"], " ", 
      RowBox[{"(", 
       RowBox[{"ep1", "+", 
        RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}], "+", 
     RowBox[{"ek1", " ", 
      RowBox[{"(", 
       RowBox[{"ek2", "+", "ep1", "+", "ep2", "+", "et"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"ep1", "+", 
        RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}], "+", 
     RowBox[{"ek", " ", 
      RowBox[{"(", 
       RowBox[{"ek1", "+", "ek2", "+", "ep1", "+", "ep2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"ek1", "+", "ep1", "+", "et", "+", 
        RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]}], ")"}]}], 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"ek1", "+", "ek2"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"ep1", "+", "ep2"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"ek", "+", "ek1", "+", "et"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"ek1", "+", "ep2", "-", 
     RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"ek2", "+", "ep1", "+", 
     RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"ek", "+", "ep1", "+", "et", "+", 
     RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]]], "Output",
 CellChangeTimes->{3.508804602618578*^9, 3.508847226717593*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"G11G23", "=", 
  RowBox[{"GG", "[", 
   RowBox[{"1", ",", "1", ",", "2", ",", "3"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.508804765157962*^9, 3.508804788836122*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"D2", " ", 
   RowBox[{"(", 
    RowBox[{"ep", "+", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"ep", "+", "et", "+", "z"}], ")"}], " ", 
   RowBox[{"Conjugate", "[", "D1", "]"}]}], 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "ep1"}], "+", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"ep2", "+", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"ep3", "+", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "ek1"}], "+", 
     RowBox[{"\[ImaginaryI]", " ", "ql"}], "+", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"ek2", "+", 
     RowBox[{"\[ImaginaryI]", " ", "ql"}], "+", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"ek3", "+", 
     RowBox[{"\[ImaginaryI]", " ", "ql"}], "+", "z"}], ")"}]}]]], "Output",
 CellChangeTimes->{3.5088047894138613`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"h1123", "=", 
  RowBox[{"sumFreq", "[", "G11G23", "]"}]}]], "Input",
 CellChangeTimes->{{3.50880481358209*^9, 3.508804825500828*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"D2", " ", 
     RowBox[{"(", 
      RowBox[{"ep", "-", "ep2"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"ep", "-", "ep2", "+", "et"}], ")"}], " ", 
     RowBox[{"Conjugate", "[", "D1", "]"}]}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"ep1", "+", "ep2"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"ep2", "-", "ep3"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"ek1", "+", "ep2", "-", 
       RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "ek2"}], "+", "ep2", "-", 
       RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "ek3"}], "+", "ep2", "-", 
       RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]]}], "-", 
  FractionBox[
   RowBox[{"D2", " ", 
    RowBox[{"(", 
     RowBox[{"ep", "-", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ep", "-", "ep3", "+", "et"}], ")"}], " ", 
    RowBox[{"Conjugate", "[", "D1", "]"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ep1", "+", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ep2"}], "+", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek2"}], "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek3"}], "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "-", 
  FractionBox[
   RowBox[{"D2", " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "-", "ep", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "-", "ep", "-", "et", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"Conjugate", "[", "D1", "]"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ek2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "-", "ek3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "+", "ep1", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "-", "ep2", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "-", "ep3", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "-", 
  FractionBox[
   RowBox[{"D2", " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "-", "ep", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "-", "ep", "-", "et", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"Conjugate", "[", "D1", "]"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ek3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek2"}], "+", "ek3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "+", "ep1", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "-", "ep2", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "-", "ep3", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{3.508804833539789*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"h1123", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ek3", "\[Rule]", 
      RowBox[{"ek", "+", "et"}]}], ",", 
     RowBox[{"ep3", "\[Rule]", 
      RowBox[{"ep", "+", "et"}]}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5088048574315*^9, 3.50880486089431*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"D2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"ek2", " ", "ep", " ", "ep1"}], "+", 
      RowBox[{"ep", " ", 
       SuperscriptBox["ep1", "2"]}], "+", 
      RowBox[{
       SuperscriptBox["ek1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"ep", "+", "ep1"}], ")"}]}], "+", 
      RowBox[{"ek2", " ", "ep", " ", "ep2"}], "+", 
      RowBox[{"ep", " ", "ep1", " ", "ep2"}], "+", 
      RowBox[{"ek2", " ", "ep", " ", "et"}], "+", 
      RowBox[{"ep", " ", "ep1", " ", "et"}], "-", 
      RowBox[{"ek2", " ", "ep2", " ", "et"}], "+", 
      RowBox[{"ep", " ", "ep2", " ", "et"}], "+", 
      RowBox[{"ek1", " ", 
       RowBox[{"(", 
        RowBox[{"ep", "+", "ep1"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"ek2", "+", "ep1", "+", "ep2", "+", "et"}], ")"}]}], "+", 
      RowBox[{"ek", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"ek1", " ", 
          RowBox[{"(", 
           RowBox[{"ep", "+", "ep1"}], ")"}]}], "+", 
         RowBox[{"ek2", " ", 
          RowBox[{"(", 
           RowBox[{"ep", "-", "ep2"}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"ep1", "+", "ep2"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"ep", "-", 
            RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]}], ")"}]}], "-", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{"ep1", "+", "ep2"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"ek2", "-", "ep", "+", "ep1", "+", "et"}], ")"}], " ", "ql"}],
       "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ep1", "+", "ep2"}], ")"}], " ", 
       SuperscriptBox["ql", "2"]}]}], ")"}], " ", 
    RowBox[{"Conjugate", "[", "D1", "]"}]}], ")"}], "/", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ek2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ep1", "+", "ep2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek", "+", "ek1", "+", "et"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ep2", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "+", "ep1", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek", "+", "ep1", "+", "et", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.508804864215803*^9, {3.508847216910108*^9, 3.508847231622751*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"G12G12", "=", 
  RowBox[{"GG", "[", 
   RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.508804975529399*^9, 3.5088049902581587`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["D1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{"ep", "+", "et", "+", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"ek", "+", "et", "+", 
     RowBox[{"\[ImaginaryI]", " ", "ql"}], "+", "z"}], ")"}]}], 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "ep1"}], "+", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"ep2", "+", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"ep3", "+", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "ek1"}], "+", 
     RowBox[{"\[ImaginaryI]", " ", "ql"}], "+", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"ek2", "+", 
     RowBox[{"\[ImaginaryI]", " ", "ql"}], "+", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"ek3", "+", 
     RowBox[{"\[ImaginaryI]", " ", "ql"}], "+", "z"}], ")"}]}]]], "Output",
 CellChangeTimes->{{3.508804985565813*^9, 3.508804991249756*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"h1212", "=", 
  RowBox[{"sumFreq", "[", "G12G12", "]"}]}]], "Input",
 CellChangeTimes->{{3.508804997071391*^9, 3.5088050136716948`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{
     SuperscriptBox["D1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "ep"}], "+", "ep2", "-", "et"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "ek"}], "+", "ep2", "-", "et", "-", 
       RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"ep1", "+", "ep2"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"ep2", "-", "ep3"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"ek1", "+", "ep2", "-", 
       RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "ek2"}], "+", "ep2", "-", 
       RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "ek3"}], "+", "ep2", "-", 
       RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]]}], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["D1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ep"}], "+", "ep3", "-", "et"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek"}], "+", "ep3", "-", "et", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ep2", "-", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ep1", "+", "ep3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek2"}], "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek3"}], "+", "ep3", "-", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["D1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek"}], "+", "ek2", "-", "et"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "-", "ep", "-", "et", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ek2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "-", "ek3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "+", "ep1", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "-", "ep2", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek2", "-", "ep3", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["D1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek"}], "+", "ek3", "-", "et"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "-", "ep", "-", "et", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ek1", "+", "ek3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "ek2"}], "+", "ek3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "+", "ep1", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "-", "ep2", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"ek3", "-", "ep3", "+", 
      RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{3.508805028792142*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"h1212", "/.", "cond3"}], "]"}]], "Input",
 CellChangeTimes->{{3.5088051045969763`*^9, 3.508805126233088*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["D1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{"ek1", "+", "ek2", "+", "ep1", "+", "ep2"}], ")"}]}], 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"ek1", "+", "ek2"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"ep1", "+", "ep2"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"ek1", "+", "ep2", "-", 
     RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"ek2", "+", "ep1", "+", 
     RowBox[{"\[ImaginaryI]", " ", "ql"}]}], ")"}]}]]], "Output",
 CellChangeTimes->{3.5088051267912273`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Series", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "+", "x"}], ")"}], "^", 
    RowBox[{"(", 
     RowBox[{"1", "/", "2"}], ")"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.509111302587113*^9, 3.509111367526474*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "+", 
   FractionBox["x", "2"], "-", 
   FractionBox[
    SuperscriptBox["x", "2"], "8"], "+", 
   FractionBox[
    SuperscriptBox["x", "3"], "16"], "-", 
   FractionBox[
    RowBox[{"5", " ", 
     SuperscriptBox["x", "4"]}], "128"], "+", 
   FractionBox[
    RowBox[{"7", " ", 
     SuperscriptBox["x", "5"]}], "256"], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "x", "]"}], "6"],
    SeriesData[$CellContext`x, 0, {}, 0, 6, 1],
    Editable->False]}],
  SeriesData[$CellContext`x, 0, {1, 
    Rational[1, 2], 
    Rational[-1, 8], 
    Rational[1, 16], 
    Rational[-5, 128], 
    Rational[7, 256]}, 0, 6, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.509111319541394*^9, 3.509111368259759*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Enp", "=", 
   RowBox[{"En", "+", 
    RowBox[{"al", " ", "q"}], "+", " ", 
    RowBox[{"bt", " ", "q", " ", "q"}]}]}], ";", 
  RowBox[{"f", "=", 
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{"En", "+", "Enp"}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.509114938606024*^9, 3.509114954341147*^9}, {
  3.5091149849187737`*^9, 3.509114995887171*^9}, {3.509116405013028*^9, 
  3.5091164326295433`*^9}}],

Cell[BoxData[
 FractionBox["1", 
  RowBox[{
   RowBox[{"2", " ", "En"}], "+", 
   RowBox[{"al", " ", "q"}], "+", 
   RowBox[{"bt", " ", 
    SuperscriptBox["q", "2"]}]}]]], "Output",
 CellChangeTimes->{
  3.509114955186945*^9, {3.509114985700388*^9, 3.509114997003416*^9}, {
   3.50911642572024*^9, 3.509116433210655*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Series", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"f", "/", "En"}], "/", "Enp"}], ",", 
   RowBox[{"{", 
    RowBox[{"q", ",", "0", ",", "5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.50911495736621*^9, 3.509114977235964*^9}, {
  3.509116447369432*^9, 3.509116450575345*^9}, {3.509116527631324*^9, 
  3.509116551577653*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   FractionBox["1", 
    RowBox[{"2", " ", 
     SuperscriptBox["En", "3"]}]], "-", 
   FractionBox[
    RowBox[{"3", " ", "al", " ", "q"}], 
    RowBox[{"4", " ", 
     SuperscriptBox["En", "4"]}]], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"7", " ", 
        SuperscriptBox["al", "2"]}], "-", 
       RowBox[{"6", " ", "bt", " ", "En"}]}], ")"}], " ", 
     SuperscriptBox["q", "2"]}], 
    RowBox[{"8", " ", 
     SuperscriptBox["En", "5"]}]], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "15"}], " ", 
        SuperscriptBox["al", "3"]}], "+", 
       RowBox[{"28", " ", "al", " ", "bt", " ", "En"}]}], ")"}], " ", 
     SuperscriptBox["q", "3"]}], 
    RowBox[{"16", " ", 
     SuperscriptBox["En", "6"]}]], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"31", " ", 
        SuperscriptBox["al", "4"]}], "-", 
       RowBox[{"90", " ", 
        SuperscriptBox["al", "2"], " ", "bt", " ", "En"}], "+", 
       RowBox[{"28", " ", 
        SuperscriptBox["bt", "2"], " ", 
        SuperscriptBox["En", "2"]}]}], ")"}], " ", 
     SuperscriptBox["q", "4"]}], 
    RowBox[{"32", " ", 
     SuperscriptBox["En", "7"]}]], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "63"}], " ", 
        SuperscriptBox["al", "5"]}], "+", 
       RowBox[{"248", " ", 
        SuperscriptBox["al", "3"], " ", "bt", " ", "En"}], "-", 
       RowBox[{"180", " ", "al", " ", 
        SuperscriptBox["bt", "2"], " ", 
        SuperscriptBox["En", "2"]}]}], ")"}], " ", 
     SuperscriptBox["q", "5"]}], 
    RowBox[{"64", " ", 
     SuperscriptBox["En", "8"]}]], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "q", "]"}], "6"],
    SeriesData[$CellContext`q, 0, {}, 0, 6, 1],
    Editable->False]}],
  SeriesData[$CellContext`q, 0, {
   Rational[1, 2] $CellContext`En^(-3), 
    Rational[-3, 4] $CellContext`al $CellContext`En^(-4), 
    Rational[1, 8] $CellContext`En^(-5) (7 $CellContext`al^2 - 
     6 $CellContext`bt $CellContext`En), 
    Rational[1, 16] $CellContext`En^(-6) ((-15) $CellContext`al^3 + 
     28 $CellContext`al $CellContext`bt $CellContext`En), 
    Rational[1, 32] $CellContext`En^(-7) (31 $CellContext`al^4 - 
     90 $CellContext`al^2 $CellContext`bt $CellContext`En + 
     28 $CellContext`bt^2 $CellContext`En^2), 
    Rational[1, 64] $CellContext`En^(-8) ((-63) $CellContext`al^5 + 
     248 $CellContext`al^3 $CellContext`bt $CellContext`En - 
     180 $CellContext`al $CellContext`bt^2 $CellContext`En^2)}, 0, 6, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.509114977688891*^9, 3.509114999835396*^9}, {
  3.5091164289109697`*^9, 3.50911645102499*^9}, {3.509116528542265*^9, 
  3.509116552514615*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "*", 
  RowBox[{"(", 
   RowBox[{"2", "En"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.509115017801989*^9, 3.509115022205044*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   FractionBox["1", 
    SuperscriptBox["En", "2"]], "-", 
   FractionBox[
    RowBox[{"3", " ", "al", " ", "q"}], 
    RowBox[{"2", " ", 
     SuperscriptBox["En", "3"]}]], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"7", " ", 
        SuperscriptBox["al", "2"]}], "-", 
       RowBox[{"6", " ", "bt", " ", "En"}]}], ")"}], " ", 
     SuperscriptBox["q", "2"]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["En", "4"]}]], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "15"}], " ", 
        SuperscriptBox["al", "3"]}], "+", 
       RowBox[{"28", " ", "al", " ", "bt", " ", "En"}]}], ")"}], " ", 
     SuperscriptBox["q", "3"]}], 
    RowBox[{"8", " ", 
     SuperscriptBox["En", "5"]}]], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"31", " ", 
        SuperscriptBox["al", "4"]}], "-", 
       RowBox[{"90", " ", 
        SuperscriptBox["al", "2"], " ", "bt", " ", "En"}], "+", 
       RowBox[{"28", " ", 
        SuperscriptBox["bt", "2"], " ", 
        SuperscriptBox["En", "2"]}]}], ")"}], " ", 
     SuperscriptBox["q", "4"]}], 
    RowBox[{"16", " ", 
     SuperscriptBox["En", "6"]}]], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "63"}], " ", 
        SuperscriptBox["al", "5"]}], "+", 
       RowBox[{"248", " ", 
        SuperscriptBox["al", "3"], " ", "bt", " ", "En"}], "-", 
       RowBox[{"180", " ", "al", " ", 
        SuperscriptBox["bt", "2"], " ", 
        SuperscriptBox["En", "2"]}]}], ")"}], " ", 
     SuperscriptBox["q", "5"]}], 
    RowBox[{"32", " ", 
     SuperscriptBox["En", "7"]}]], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "q", "]"}], "6"],
    SeriesData[$CellContext`q, 0, {}, 0, 6, 1],
    Editable->False]}],
  SeriesData[$CellContext`q, 
   0, {$CellContext`En^(-2), 
    Rational[-3, 2] $CellContext`al $CellContext`En^(-3), 
    Rational[1, 4] $CellContext`En^(-4) (7 $CellContext`al^2 - 
     6 $CellContext`bt $CellContext`En), 
    Rational[1, 8] $CellContext`En^(-5) ((-15) $CellContext`al^3 + 
     28 $CellContext`al $CellContext`bt $CellContext`En), 
    Rational[1, 16] $CellContext`En^(-6) (31 $CellContext`al^4 - 
     90 $CellContext`al^2 $CellContext`bt $CellContext`En + 
     28 $CellContext`bt^2 $CellContext`En^2), 
    Rational[1, 32] $CellContext`En^(-7) ((-63) $CellContext`al^5 + 
     248 $CellContext`al^3 $CellContext`bt $CellContext`En - 
     180 $CellContext`al $CellContext`bt^2 $CellContext`En^2)}, 0, 6, 1],
  Editable->False]], "Output",
 CellChangeTimes->{
  3.509115022905053*^9, {3.509116542911562*^9, 3.509116554881116*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Series", "[", 
   RowBox[{"f", ",", 
    RowBox[{"{", 
     RowBox[{"q", ",", "0", ",", "5"}], "}"}]}], "]"}], "*", 
  RowBox[{"(", 
   RowBox[{"2", "En"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.50911669999852*^9, 3.509116715717135*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "-", 
   FractionBox[
    RowBox[{"al", " ", "q"}], 
    RowBox[{"2", " ", "En"}]], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["al", "2"], "-", 
       RowBox[{"2", " ", "bt", " ", "En"}]}], ")"}], " ", 
     SuperscriptBox["q", "2"]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["En", "2"]}]], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["al", "3"]}], "+", 
       RowBox[{"4", " ", "al", " ", "bt", " ", "En"}]}], ")"}], " ", 
     SuperscriptBox["q", "3"]}], 
    RowBox[{"8", " ", 
     SuperscriptBox["En", "3"]}]], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["al", "4"], "-", 
       RowBox[{"6", " ", 
        SuperscriptBox["al", "2"], " ", "bt", " ", "En"}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["bt", "2"], " ", 
        SuperscriptBox["En", "2"]}]}], ")"}], " ", 
     SuperscriptBox["q", "4"]}], 
    RowBox[{"16", " ", 
     SuperscriptBox["En", "4"]}]], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["al", "5"]}], "+", 
       RowBox[{"8", " ", 
        SuperscriptBox["al", "3"], " ", "bt", " ", "En"}], "-", 
       RowBox[{"12", " ", "al", " ", 
        SuperscriptBox["bt", "2"], " ", 
        SuperscriptBox["En", "2"]}]}], ")"}], " ", 
     SuperscriptBox["q", "5"]}], 
    RowBox[{"32", " ", 
     SuperscriptBox["En", "5"]}]], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "q", "]"}], "6"],
    SeriesData[$CellContext`q, 0, {}, 0, 6, 1],
    Editable->False]}],
  SeriesData[$CellContext`q, 0, {
   1, Rational[-1, 2] $CellContext`al/$CellContext`En, 
    Rational[1, 4] $CellContext`En^(-2) ($CellContext`al^2 - 
     2 $CellContext`bt $CellContext`En), 
    Rational[1, 8] $CellContext`En^(-3) (-$CellContext`al^3 + 
     4 $CellContext`al $CellContext`bt $CellContext`En), 
    Rational[1, 16] $CellContext`En^(-4) ($CellContext`al^4 - 
     6 $CellContext`al^2 $CellContext`bt $CellContext`En + 
     4 $CellContext`bt^2 $CellContext`En^2), 
    Rational[1, 32] $CellContext`En^(-5) (-$CellContext`al^5 + 
     8 $CellContext`al^3 $CellContext`bt $CellContext`En - 
     12 $CellContext`al $CellContext`bt^2 $CellContext`En^2)}, 0, 6, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.509116700941485*^9, 3.509116716224839*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"epsp", "=", 
   RowBox[{"eps", "+", 
    RowBox[{"al1", " ", "q"}], "+", 
    RowBox[{"bt1", " ", "q", " ", "q"}]}]}], ";", 
  RowBox[{"Ensp", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"epsp", "^", "2"}], "+", 
      RowBox[{"Dt", "^", "2"}]}], ")"}], "^", 
    RowBox[{"(", 
     RowBox[{"1", "/", "2"}], ")"}]}]}], ";", 
  RowBox[{"En", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"eps", "^", "2"}], "+", 
      RowBox[{"Dt", "^", "2"}]}], ")"}], "^", 
    RowBox[{"(", 
     RowBox[{"1", "/", "2"}], ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.509116843933188*^9, 3.5091169095321217`*^9}, {
  3.50912825468933*^9, 3.509128272554913*^9}, {3.509129901341457*^9, 
  3.509129901924156*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Series", "[", 
  RowBox[{"Ensp", ",", 
   RowBox[{"{", 
    RowBox[{"q", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5091169152806*^9, 3.509116945534648*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SqrtBox[
    RowBox[{
     SuperscriptBox["Dt", "2"], "+", 
     SuperscriptBox["eps", "2"]}]], "+", 
   FractionBox[
    RowBox[{"al1", " ", "eps", " ", "q"}], 
    SqrtBox[
     RowBox[{
      SuperscriptBox["Dt", "2"], "+", 
      SuperscriptBox["eps", "2"]}]]], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["al1", "2"], " ", 
        SuperscriptBox["Dt", "2"]}], "+", 
       RowBox[{"2", " ", "bt1", " ", 
        SuperscriptBox["Dt", "2"], " ", "eps"}], "+", 
       RowBox[{"2", " ", "bt1", " ", 
        SuperscriptBox["eps", "3"]}]}], ")"}], " ", 
     SuperscriptBox["q", "2"]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["Dt", "2"], "+", 
        SuperscriptBox["eps", "2"]}], ")"}], 
      RowBox[{"3", "/", "2"}]]}]], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "al1", " ", "bt1", " ", 
        SuperscriptBox["Dt", "4"]}], "-", 
       RowBox[{
        SuperscriptBox["al1", "3"], " ", 
        SuperscriptBox["Dt", "2"], " ", "eps"}], "+", 
       RowBox[{"2", " ", "al1", " ", "bt1", " ", 
        SuperscriptBox["Dt", "2"], " ", 
        SuperscriptBox["eps", "2"]}]}], ")"}], " ", 
     SuperscriptBox["q", "3"]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["Dt", "2"], "+", 
        SuperscriptBox["eps", "2"]}], ")"}], 
      RowBox[{"5", "/", "2"}]]}]], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "q", "]"}], "4"],
    SeriesData[$CellContext`q, 0, {}, 0, 4, 1],
    Editable->False]}],
  SeriesData[$CellContext`q, 
   0, {(Dt^2 + $CellContext`eps^2)^
    Rational[1, 2], $CellContext`al1 $CellContext`eps (
      Dt^2 + $CellContext`eps^2)^Rational[-1, 2], 
    Rational[1, 2] (Dt^2 + $CellContext`eps^2)^
     Rational[-3, 2] ($CellContext`al1^2 Dt^2 + 
     2 $CellContext`bt1 Dt^2 $CellContext`eps + 
     2 $CellContext`bt1 $CellContext`eps^3), 
    Rational[1, 2] (Dt^2 + $CellContext`eps^2)^Rational[-5, 2] (
     2 $CellContext`al1 $CellContext`bt1 Dt^4 - $CellContext`al1^3 
     Dt^2 $CellContext`eps + 
     2 $CellContext`al1 $CellContext`bt1 Dt^2 $CellContext`eps^2)}, 0, 4, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.50911692981038*^9, 3.5091169340519133`*^9}, 
   3.509128275458433*^9, 3.509129991470352*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Series", "[", 
  RowBox[{
   RowBox[{"epsp", "/", "Ensp"}], ",", 
   RowBox[{"{", 
    RowBox[{"q", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.509117383340489*^9, 3.50911740017664*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   FractionBox["eps", 
    SqrtBox[
     RowBox[{
      SuperscriptBox["Dt", "2"], "+", 
      SuperscriptBox["eps", "2"]}]]], "+", 
   FractionBox[
    RowBox[{"al1", " ", 
     SuperscriptBox["Dt", "2"], " ", "q"}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["Dt", "2"], "+", 
       SuperscriptBox["eps", "2"]}], ")"}], 
     RowBox[{"3", "/", "2"}]]], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "bt1", " ", 
        SuperscriptBox["Dt", "4"]}], "-", 
       RowBox[{"3", " ", 
        SuperscriptBox["al1", "2"], " ", 
        SuperscriptBox["Dt", "2"], " ", "eps"}], "+", 
       RowBox[{"2", " ", "bt1", " ", 
        SuperscriptBox["Dt", "2"], " ", 
        SuperscriptBox["eps", "2"]}]}], ")"}], " ", 
     SuperscriptBox["q", "2"]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["Dt", "2"], "+", 
        SuperscriptBox["eps", "2"]}], ")"}], 
      RowBox[{"5", "/", "2"}]]}]], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["al1", "3"]}], " ", 
        SuperscriptBox["Dt", "4"]}], "-", 
       RowBox[{"6", " ", "al1", " ", "bt1", " ", 
        SuperscriptBox["Dt", "4"], " ", "eps"}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["al1", "3"], " ", 
        SuperscriptBox["Dt", "2"], " ", 
        SuperscriptBox["eps", "2"]}], "-", 
       RowBox[{"6", " ", "al1", " ", "bt1", " ", 
        SuperscriptBox["Dt", "2"], " ", 
        SuperscriptBox["eps", "3"]}]}], ")"}], " ", 
     SuperscriptBox["q", "3"]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["Dt", "2"], "+", 
        SuperscriptBox["eps", "2"]}], ")"}], 
      RowBox[{"7", "/", "2"}]]}]], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "q", "]"}], "4"],
    SeriesData[$CellContext`q, 0, {}, 0, 4, 1],
    Editable->False]}],
  SeriesData[$CellContext`q, 
   0, {$CellContext`eps (Dt^2 + $CellContext`eps^2)^
     Rational[-1, 2], $CellContext`al1 
    Dt^2 (Dt^2 + $CellContext`eps^2)^Rational[-3, 2], 
    Rational[1, 2] (Dt^2 + $CellContext`eps^2)^Rational[-5, 2] (
     2 $CellContext`bt1 Dt^4 - 3 $CellContext`al1^2 Dt^2 $CellContext`eps + 
     2 $CellContext`bt1 Dt^2 $CellContext`eps^2), 
    Rational[1, 2] (Dt^2 + $CellContext`eps^2)^
     Rational[-7, 2] (-$CellContext`al1^3 Dt^4 - 
     6 $CellContext`al1 $CellContext`bt1 Dt^4 $CellContext`eps + 
     4 $CellContext`al1^3 Dt^2 $CellContext`eps^2 - 
     6 $CellContext`al1 $CellContext`bt1 Dt^2 $CellContext`eps^3)}, 0, 4, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.509117401410727*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Series", "[", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "+", 
     RowBox[{"eps", " ", 
      RowBox[{
       RowBox[{"epsp", "/", "Ensp"}], "/", 
       RowBox[{"(", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["Dt", "2"], "+", 
          SuperscriptBox["eps", "2"]}]], ")"}]}]}]}], ")"}], ",", 
   RowBox[{"{", 
    RowBox[{"q", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5091176337902184`*^9, 3.5091176790251083`*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "+", 
     FractionBox[
      SuperscriptBox["eps", "2"], 
      RowBox[{
       SuperscriptBox["Dt", "2"], "+", 
       SuperscriptBox["eps", "2"]}]]}], ")"}], "+", 
   FractionBox[
    RowBox[{"al1", " ", 
     SuperscriptBox["Dt", "2"], " ", "eps", " ", "q"}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["Dt", "2"], "+", 
       SuperscriptBox["eps", "2"]}], ")"}], "2"]], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "bt1", " ", 
        SuperscriptBox["Dt", "4"], " ", "eps"}], "-", 
       RowBox[{"3", " ", 
        SuperscriptBox["al1", "2"], " ", 
        SuperscriptBox["Dt", "2"], " ", 
        SuperscriptBox["eps", "2"]}], "+", 
       RowBox[{"2", " ", "bt1", " ", 
        SuperscriptBox["Dt", "2"], " ", 
        SuperscriptBox["eps", "3"]}]}], ")"}], " ", 
     SuperscriptBox["q", "2"]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["Dt", "2"], "+", 
        SuperscriptBox["eps", "2"]}], ")"}], "3"]}]], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["al1", "3"]}], " ", 
        SuperscriptBox["Dt", "4"], " ", "eps"}], "-", 
       RowBox[{"6", " ", "al1", " ", "bt1", " ", 
        SuperscriptBox["Dt", "4"], " ", 
        SuperscriptBox["eps", "2"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["al1", "3"], " ", 
        SuperscriptBox["Dt", "2"], " ", 
        SuperscriptBox["eps", "3"]}], "-", 
       RowBox[{"6", " ", "al1", " ", "bt1", " ", 
        SuperscriptBox["Dt", "2"], " ", 
        SuperscriptBox["eps", "4"]}]}], ")"}], " ", 
     SuperscriptBox["q", "3"]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["Dt", "2"], "+", 
        SuperscriptBox["eps", "2"]}], ")"}], "4"]}]], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "q", "]"}], "4"],
    SeriesData[$CellContext`q, 0, {}, 0, 4, 1],
    Editable->False]}],
  SeriesData[$CellContext`q, 0, {
   1 + $CellContext`eps^2/(Dt^2 + $CellContext`eps^2), $CellContext`al1 
    Dt^2 $CellContext`eps (Dt^2 + $CellContext`eps^2)^(-2), 
    Rational[1, 2] (Dt^2 + $CellContext`eps^2)^(-3) (
     2 $CellContext`bt1 Dt^4 $CellContext`eps - 3 $CellContext`al1^2 
     Dt^2 $CellContext`eps^2 + 2 $CellContext`bt1 Dt^2 $CellContext`eps^3), 
    Rational[1, 2] (Dt^2 + $CellContext`eps^2)^(-4) (-$CellContext`al1^3 
      Dt^4 $CellContext`eps - 6 $CellContext`al1 $CellContext`bt1 
     Dt^4 $CellContext`eps^2 + 4 $CellContext`al1^3 Dt^2 $CellContext`eps^3 - 
     6 $CellContext`al1 $CellContext`bt1 Dt^2 $CellContext`eps^4)}, 0, 4, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.509117683300434*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/", 
  RowBox[{"(", 
   RowBox[{"1", "+", 
    FractionBox[
     SuperscriptBox["eps", "2"], 
     RowBox[{
      SuperscriptBox["Dt", "2"], "+", 
      SuperscriptBox["eps", "2"]}]]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.5091177199579773`*^9, 3.509117722735343*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "+", 
   FractionBox[
    RowBox[{"al1", " ", 
     SuperscriptBox["Dt", "2"], " ", "eps", " ", "q"}], 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["Dt", "2"], "+", 
        SuperscriptBox["eps", "2"]}], ")"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       FractionBox[
        SuperscriptBox["eps", "2"], 
        RowBox[{
         SuperscriptBox["Dt", "2"], "+", 
         SuperscriptBox["eps", "2"]}]]}], ")"}]}]], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "bt1", " ", 
        SuperscriptBox["Dt", "4"], " ", "eps"}], "-", 
       RowBox[{"3", " ", 
        SuperscriptBox["al1", "2"], " ", 
        SuperscriptBox["Dt", "2"], " ", 
        SuperscriptBox["eps", "2"]}], "+", 
       RowBox[{"2", " ", "bt1", " ", 
        SuperscriptBox["Dt", "2"], " ", 
        SuperscriptBox["eps", "3"]}]}], ")"}], " ", 
     SuperscriptBox["q", "2"]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["Dt", "2"], "+", 
        SuperscriptBox["eps", "2"]}], ")"}], "3"], " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       FractionBox[
        SuperscriptBox["eps", "2"], 
        RowBox[{
         SuperscriptBox["Dt", "2"], "+", 
         SuperscriptBox["eps", "2"]}]]}], ")"}]}]], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["al1", "3"]}], " ", 
        SuperscriptBox["Dt", "4"], " ", "eps"}], "-", 
       RowBox[{"6", " ", "al1", " ", "bt1", " ", 
        SuperscriptBox["Dt", "4"], " ", 
        SuperscriptBox["eps", "2"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["al1", "3"], " ", 
        SuperscriptBox["Dt", "2"], " ", 
        SuperscriptBox["eps", "3"]}], "-", 
       RowBox[{"6", " ", "al1", " ", "bt1", " ", 
        SuperscriptBox["Dt", "2"], " ", 
        SuperscriptBox["eps", "4"]}]}], ")"}], " ", 
     SuperscriptBox["q", "3"]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["Dt", "2"], "+", 
        SuperscriptBox["eps", "2"]}], ")"}], "4"], " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       FractionBox[
        SuperscriptBox["eps", "2"], 
        RowBox[{
         SuperscriptBox["Dt", "2"], "+", 
         SuperscriptBox["eps", "2"]}]]}], ")"}]}]], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "q", "]"}], "4"],
    SeriesData[$CellContext`q, 0, {}, 0, 4, 1],
    Editable->False]}],
  SeriesData[$CellContext`q, 0, {
   1, $CellContext`al1 
    Dt^2 $CellContext`eps (Dt^2 + $CellContext`eps^2)^(-2)/(
    1 + $CellContext`eps^2/(Dt^2 + $CellContext`eps^2)), 
    Rational[1, 2] (Dt^2 + $CellContext`eps^2)^(-3) (
     2 $CellContext`bt1 Dt^4 $CellContext`eps - 3 $CellContext`al1^2 
     Dt^2 $CellContext`eps^2 + 2 $CellContext`bt1 Dt^2 $CellContext`eps^3)/(
    1 + $CellContext`eps^2/(Dt^2 + $CellContext`eps^2)), 
    Rational[1, 2] (Dt^2 + $CellContext`eps^2)^(-4) (-$CellContext`al1^3 
      Dt^4 $CellContext`eps - 6 $CellContext`al1 $CellContext`bt1 
     Dt^4 $CellContext`eps^2 + 4 $CellContext`al1^3 Dt^2 $CellContext`eps^3 - 
     6 $CellContext`al1 $CellContext`bt1 Dt^2 $CellContext`eps^4)/(
    1 + $CellContext`eps^2/(Dt^2 + $CellContext`eps^2))}, 0, 4, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.509117723712393*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"M12", "=", 
   RowBox[{
    RowBox[{"-", "2"}], 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"En", "+", "Ensp"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"w", "^", "2"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"En", "+", "Ensp"}], ")"}], "^", "2"}]}], ")"}]}], "/", 
     RowBox[{"(", 
      RowBox[{"En", " ", "Ensp"}], ")"}]}]}]}], ";", 
  RowBox[{"M11", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"eps", "/", "En"}]}], ")"}], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"epsp", "/", "Ensp"}]}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{"w", "-", "En", "-", "Ensp"}], ")"}]}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"eps", "/", "En"}]}], ")"}], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"epsp", "/", "Ensp"}]}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{"w", "+", "En", "+", "Ensp"}], ")"}]}]}]}], ")"}], "/", 
     "4"}], "+", 
    RowBox[{"1", "/", "g"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.509127004287552*^9, 3.5091271131387978`*^9}, {
  3.5091297296524878`*^9, 3.5091297300272512`*^9}, {3.509132809974504*^9, 
  3.509132994127709*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Series", "[", 
  RowBox[{"M12", ",", 
   RowBox[{"{", 
    RowBox[{"w", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"q", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.50913308429038*^9, 3.5091330879966593`*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"(", 
    InterpretationBox[
     RowBox[{
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["Dt", "2"], "+", 
          SuperscriptBox["eps", "2"]}], ")"}], 
        RowBox[{"3", "/", "2"}]]], "-", 
      FractionBox[
       RowBox[{"3", " ", 
        RowBox[{"(", 
         RowBox[{"al1", " ", "eps"}], ")"}], " ", "q"}], 
       RowBox[{"2", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["Dt", "2"], "+", 
           SuperscriptBox["eps", "2"]}], ")"}], 
         RowBox[{"5", "/", "2"}]]}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "3"}], " ", 
           SuperscriptBox["al1", "2"], " ", 
           SuperscriptBox["Dt", "2"]}], "-", 
          RowBox[{"6", " ", "bt1", " ", 
           SuperscriptBox["Dt", "2"], " ", "eps"}], "+", 
          RowBox[{"7", " ", 
           SuperscriptBox["al1", "2"], " ", 
           SuperscriptBox["eps", "2"]}], "-", 
          RowBox[{"6", " ", "bt1", " ", 
           SuperscriptBox["eps", "3"]}]}], ")"}], " ", 
        SuperscriptBox["q", "2"]}], 
       RowBox[{"4", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["Dt", "2"], "+", 
           SuperscriptBox["eps", "2"]}], ")"}], 
         RowBox[{"7", "/", "2"}]]}]], "+", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{"O", "[", "q", "]"}], "3"],
       SeriesData[$CellContext`q, 0, {}, 0, 3, 1],
       Editable->False]}],
     SeriesData[$CellContext`q, 
      0, {(Dt^2 + $CellContext`eps^2)^Rational[-3, 2], 
       Rational[-3, 2] $CellContext`al1 $CellContext`eps (
         Dt^2 + $CellContext`eps^2)^Rational[-5, 2], 
       Rational[1, 4] (Dt^2 + $CellContext`eps^2)^
        Rational[-7, 2] ((-3) $CellContext`al1^2 Dt^2 - 6 $CellContext`bt1 
        Dt^2 $CellContext`eps + 7 $CellContext`al1^2 $CellContext`eps^2 - 
        6 $CellContext`bt1 $CellContext`eps^3)}, 0, 3, 1],
     Editable->False], ")"}], "+", 
   RowBox[{
    RowBox[{"(", 
     InterpretationBox[
      RowBox[{
       FractionBox["1", 
        RowBox[{"4", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["Dt", "2"], "+", 
            SuperscriptBox["eps", "2"]}], ")"}], 
          RowBox[{"5", "/", "2"}]]}]], "-", 
       FractionBox[
        RowBox[{"5", " ", 
         RowBox[{"(", 
          RowBox[{"al1", " ", "eps"}], ")"}], " ", "q"}], 
        RowBox[{"8", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["Dt", "2"], "+", 
            SuperscriptBox["eps", "2"]}], ")"}], 
          RowBox[{"7", "/", "2"}]]}]], "+", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "5"}], " ", 
            SuperscriptBox["al1", "2"], " ", 
            SuperscriptBox["Dt", "2"]}], "-", 
           RowBox[{"10", " ", "bt1", " ", 
            SuperscriptBox["Dt", "2"], " ", "eps"}], "+", 
           RowBox[{"16", " ", 
            SuperscriptBox["al1", "2"], " ", 
            SuperscriptBox["eps", "2"]}], "-", 
           RowBox[{"10", " ", "bt1", " ", 
            SuperscriptBox["eps", "3"]}]}], ")"}], " ", 
         SuperscriptBox["q", "2"]}], 
        RowBox[{"16", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["Dt", "2"], "+", 
            SuperscriptBox["eps", "2"]}], ")"}], 
          RowBox[{"9", "/", "2"}]]}]], "+", 
       InterpretationBox[
        SuperscriptBox[
         RowBox[{"O", "[", "q", "]"}], "3"],
        SeriesData[$CellContext`q, 0, {}, 0, 3, 1],
        Editable->False]}],
      SeriesData[$CellContext`q, 0, {
       Rational[1, 4] (Dt^2 + $CellContext`eps^2)^Rational[-5, 2], 
        Rational[-5, 8] $CellContext`al1 $CellContext`eps (
          Dt^2 + $CellContext`eps^2)^Rational[-7, 2], 
        Rational[1, 16] (Dt^2 + $CellContext`eps^2)^
         Rational[-9, 2] ((-5) $CellContext`al1^2 Dt^2 - 10 $CellContext`bt1 
         Dt^2 $CellContext`eps + 16 $CellContext`al1^2 $CellContext`eps^2 - 
         10 $CellContext`bt1 $CellContext`eps^3)}, 0, 3, 1],
      Editable->False], ")"}], " ", 
    SuperscriptBox["w", "2"]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "w", "]"}], "3"],
    SeriesData[$CellContext`w, 0, {}, 0, 3, 1],
    Editable->False]}],
  SeriesData[$CellContext`w, 0, {
    SeriesData[$CellContext`q, 
     0, {(Dt^2 + $CellContext`eps^2)^Rational[-3, 2], 
      Rational[-3, 2] $CellContext`al1 $CellContext`eps (
        Dt^2 + $CellContext`eps^2)^Rational[-5, 2], 
      Rational[1, 4] (Dt^2 + $CellContext`eps^2)^
       Rational[-7, 2] ((-3) $CellContext`al1^2 Dt^2 - 6 $CellContext`bt1 
       Dt^2 $CellContext`eps + 7 $CellContext`al1^2 $CellContext`eps^2 - 
       6 $CellContext`bt1 $CellContext`eps^3)}, 0, 3, 1], 0, 
    SeriesData[$CellContext`q, 0, {
     Rational[1, 4] (Dt^2 + $CellContext`eps^2)^Rational[-5, 2], 
      Rational[-5, 8] $CellContext`al1 $CellContext`eps (
        Dt^2 + $CellContext`eps^2)^Rational[-7, 2], 
      Rational[1, 16] (Dt^2 + $CellContext`eps^2)^
       Rational[-9, 2] ((-5) $CellContext`al1^2 Dt^2 - 10 $CellContext`bt1 
       Dt^2 $CellContext`eps + 16 $CellContext`al1^2 $CellContext`eps^2 - 
       10 $CellContext`bt1 $CellContext`eps^3)}, 0, 3, 1]}, 0, 3, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.5091330004242153`*^9, 3.5091330885682983`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/", 
  FractionBox["1", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["Dt", "2"], "+", 
      SuperscriptBox["eps", "2"]}], ")"}], 
    RowBox[{"3", "/", "2"}]]]}]], "Input",
 CellChangeTimes->{{3.509129761644869*^9, 3.5091297677968473`*^9}, {
  3.5091298042326*^9, 3.509129828327149*^9}, {3.509130296619555*^9, 
  3.509130297648282*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"(", 
    InterpretationBox[
     RowBox[{"1", "-", 
      FractionBox[
       RowBox[{"3", " ", 
        RowBox[{"(", 
         RowBox[{"al1", " ", "eps"}], ")"}], " ", "q"}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["Dt", "2"], "+", 
          SuperscriptBox["eps", "2"]}], ")"}]}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "3"}], " ", 
           SuperscriptBox["al1", "2"], " ", 
           SuperscriptBox["Dt", "2"]}], "-", 
          RowBox[{"6", " ", "bt1", " ", 
           SuperscriptBox["Dt", "2"], " ", "eps"}], "+", 
          RowBox[{"7", " ", 
           SuperscriptBox["al1", "2"], " ", 
           SuperscriptBox["eps", "2"]}], "-", 
          RowBox[{"6", " ", "bt1", " ", 
           SuperscriptBox["eps", "3"]}]}], ")"}], " ", 
        SuperscriptBox["q", "2"]}], 
       RowBox[{"4", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["Dt", "2"], "+", 
           SuperscriptBox["eps", "2"]}], ")"}], "2"]}]], "+", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{"O", "[", "q", "]"}], "3"],
       SeriesData[$CellContext`q, 0, {}, 0, 3, 1],
       Editable->False]}],
     SeriesData[$CellContext`q, 0, {
      1, Rational[-3, 2] $CellContext`al1 $CellContext`eps/(
       Dt^2 + $CellContext`eps^2), 
       Rational[
        1, 4] (Dt^2 + $CellContext`eps^2)^(-2) ((-3) $CellContext`al1^2 Dt^2 - 
        6 $CellContext`bt1 Dt^2 $CellContext`eps + 
        7 $CellContext`al1^2 $CellContext`eps^2 - 
        6 $CellContext`bt1 $CellContext`eps^3)}, 0, 3, 1],
     Editable->False], ")"}], "+", 
   RowBox[{
    RowBox[{"(", 
     InterpretationBox[
      RowBox[{
       FractionBox["1", 
        RowBox[{"4", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["Dt", "2"], "+", 
           SuperscriptBox["eps", "2"]}], ")"}]}]], "-", 
       FractionBox[
        RowBox[{"5", " ", 
         RowBox[{"(", 
          RowBox[{"al1", " ", "eps"}], ")"}], " ", "q"}], 
        RowBox[{"8", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["Dt", "2"], "+", 
            SuperscriptBox["eps", "2"]}], ")"}], "2"]}]], "+", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "5"}], " ", 
            SuperscriptBox["al1", "2"], " ", 
            SuperscriptBox["Dt", "2"]}], "-", 
           RowBox[{"10", " ", "bt1", " ", 
            SuperscriptBox["Dt", "2"], " ", "eps"}], "+", 
           RowBox[{"16", " ", 
            SuperscriptBox["al1", "2"], " ", 
            SuperscriptBox["eps", "2"]}], "-", 
           RowBox[{"10", " ", "bt1", " ", 
            SuperscriptBox["eps", "3"]}]}], ")"}], " ", 
         SuperscriptBox["q", "2"]}], 
        RowBox[{"16", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["Dt", "2"], "+", 
            SuperscriptBox["eps", "2"]}], ")"}], "3"]}]], "+", 
       InterpretationBox[
        SuperscriptBox[
         RowBox[{"O", "[", "q", "]"}], "3"],
        SeriesData[$CellContext`q, 0, {}, 0, 3, 1],
        Editable->False]}],
      SeriesData[$CellContext`q, 0, {
       Rational[1, 4]/(Dt^2 + $CellContext`eps^2), 
        Rational[-5, 8] $CellContext`al1 $CellContext`eps (
          Dt^2 + $CellContext`eps^2)^(-2), 
        Rational[
         1, 16] (Dt^2 + $CellContext`eps^2)^(-3) ((-5) $CellContext`al1^2 
          Dt^2 - 10 $CellContext`bt1 Dt^2 $CellContext`eps + 
         16 $CellContext`al1^2 $CellContext`eps^2 - 
         10 $CellContext`bt1 $CellContext`eps^3)}, 0, 3, 1],
      Editable->False], ")"}], " ", 
    SuperscriptBox["w", "2"]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "w", "]"}], "3"],
    SeriesData[$CellContext`w, 0, {}, 0, 3, 1],
    Editable->False]}],
  SeriesData[$CellContext`w, 0, {
    SeriesData[$CellContext`q, 0, {
     1, Rational[-3, 2] $CellContext`al1 $CellContext`eps/(
      Dt^2 + $CellContext`eps^2), 
      Rational[1, 4] (
        Dt^2 + $CellContext`eps^2)^(-2) ((-3) $CellContext`al1^2 Dt^2 - 
       6 $CellContext`bt1 Dt^2 $CellContext`eps + 
       7 $CellContext`al1^2 $CellContext`eps^2 - 
       6 $CellContext`bt1 $CellContext`eps^3)}, 0, 3, 1], 0, 
    SeriesData[$CellContext`q, 0, {
     Rational[1, 4]/(Dt^2 + $CellContext`eps^2), 
      Rational[-5, 8] $CellContext`al1 $CellContext`eps (
        Dt^2 + $CellContext`eps^2)^(-2), 
      Rational[1, 16] (
        Dt^2 + $CellContext`eps^2)^(-3) ((-5) $CellContext`al1^2 Dt^2 - 
       10 $CellContext`bt1 Dt^2 $CellContext`eps + 
       16 $CellContext`al1^2 $CellContext`eps^2 - 
       10 $CellContext`bt1 $CellContext`eps^3)}, 0, 3, 1]}, 0, 3, 1],
  Editable->False]], "Output",
 CellChangeTimes->{
  3.5091297685840893`*^9, {3.5091298099088287`*^9, 3.5091298289843683`*^9}, 
   3.5091299177538357`*^9, {3.5091302985394373`*^9, 3.509130309432908*^9}, 
   3.5091330031848307`*^9, 3.509133090872993*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Series", "[", 
  RowBox[{"M11", ",", 
   RowBox[{"{", 
    RowBox[{"w", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"q", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.509133025344754*^9, 3.509133050704323*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"(", 
    InterpretationBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["Dt", "2"]}], "-", 
          RowBox[{"2", " ", 
           SuperscriptBox["eps", "2"]}]}], 
         RowBox[{"4", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["Dt", "2"], "+", 
             SuperscriptBox["eps", "2"]}], ")"}], 
           RowBox[{"3", "/", "2"}]]}]], "+", 
        FractionBox["1", "g"]}], ")"}], "-", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"al1", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["Dt", "2"], " ", "eps"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eps", "3"]}]}], ")"}]}], ")"}], " ", "q"}], 
       RowBox[{"8", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["Dt", "2"], "+", 
           SuperscriptBox["eps", "2"]}], ")"}], 
         RowBox[{"5", "/", "2"}]]}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["al1", "2"], " ", 
           SuperscriptBox["Dt", "4"]}], "-", 
          RowBox[{"2", " ", "bt1", " ", 
           SuperscriptBox["Dt", "4"], " ", "eps"}], "+", 
          RowBox[{"9", " ", 
           SuperscriptBox["al1", "2"], " ", 
           SuperscriptBox["Dt", "2"], " ", 
           SuperscriptBox["eps", "2"]}], "+", 
          RowBox[{"2", " ", "bt1", " ", 
           SuperscriptBox["Dt", "2"], " ", 
           SuperscriptBox["eps", "3"]}], "-", 
          RowBox[{"2", " ", 
           SuperscriptBox["al1", "2"], " ", 
           SuperscriptBox["eps", "4"]}], "+", 
          RowBox[{"4", " ", "bt1", " ", 
           SuperscriptBox["eps", "5"]}]}], ")"}], " ", 
        SuperscriptBox["q", "2"]}], 
       RowBox[{"16", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["Dt", "2"], "+", 
           SuperscriptBox["eps", "2"]}], ")"}], 
         RowBox[{"7", "/", "2"}]]}]], "+", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{"O", "[", "q", "]"}], "3"],
       SeriesData[$CellContext`q, 0, {}, 0, 3, 1],
       Editable->False]}],
     SeriesData[$CellContext`q, 0, {
      Rational[1, 4] (-Dt^2 - 
         2 $CellContext`eps^2) (Dt^2 + $CellContext`eps^2)^
         Rational[-3, 2] + $CellContext`g^(-1), 
       Rational[-1, 8] $CellContext`al1 (Dt^2 + $CellContext`eps^2)^
        Rational[-5, 2] (Dt^2 $CellContext`eps - 2 $CellContext`eps^3), 
       Rational[1, 16] (Dt^2 + $CellContext`eps^2)^
        Rational[-7, 2] ($CellContext`al1^2 Dt^4 - 2 $CellContext`bt1 
        Dt^4 $CellContext`eps + 9 $CellContext`al1^2 Dt^2 $CellContext`eps^2 + 
        2 $CellContext`bt1 Dt^2 $CellContext`eps^3 - 
        2 $CellContext`al1^2 $CellContext`eps^4 + 
        4 $CellContext`bt1 $CellContext`eps^5)}, 0, 3, 1],
     Editable->False], ")"}], "+", 
   RowBox[{
    RowBox[{"(", 
     InterpretationBox[
      RowBox[{
       FractionBox["eps", 
        RowBox[{"4", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["Dt", "2"], "+", 
            SuperscriptBox["eps", "2"]}], ")"}], 
          RowBox[{"3", "/", "2"}]]}]], "+", 
       FractionBox[
        RowBox[{"al1", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["Dt", "2"], "-", 
           RowBox[{"2", " ", 
            SuperscriptBox["eps", "2"]}]}], ")"}], " ", "q"}], 
        RowBox[{"8", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["Dt", "2"], "+", 
            SuperscriptBox["eps", "2"]}], ")"}], 
          RowBox[{"5", "/", "2"}]]}]], "+", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "bt1", " ", 
            SuperscriptBox["Dt", "4"]}], "-", 
           RowBox[{"7", " ", 
            SuperscriptBox["al1", "2"], " ", 
            SuperscriptBox["Dt", "2"], " ", "eps"}], "-", 
           RowBox[{"2", " ", "bt1", " ", 
            SuperscriptBox["Dt", "2"], " ", 
            SuperscriptBox["eps", "2"]}], "+", 
           RowBox[{"3", " ", 
            SuperscriptBox["al1", "2"], " ", 
            SuperscriptBox["eps", "3"]}], "-", 
           RowBox[{"4", " ", "bt1", " ", 
            SuperscriptBox["eps", "4"]}]}], ")"}], " ", 
         SuperscriptBox["q", "2"]}], 
        RowBox[{"16", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["Dt", "2"], "+", 
            SuperscriptBox["eps", "2"]}], ")"}], 
          RowBox[{"7", "/", "2"}]]}]], "+", 
       InterpretationBox[
        SuperscriptBox[
         RowBox[{"O", "[", "q", "]"}], "3"],
        SeriesData[$CellContext`q, 0, {}, 0, 3, 1],
        Editable->False]}],
      SeriesData[$CellContext`q, 0, {
       Rational[1, 4] $CellContext`eps (Dt^2 + $CellContext`eps^2)^
         Rational[-3, 2], 
        Rational[1, 8] $CellContext`al1 (Dt^2 - 
         2 $CellContext`eps^2) (Dt^2 + $CellContext`eps^2)^Rational[-5, 2], 
        Rational[1, 16] (Dt^2 + $CellContext`eps^2)^Rational[-7, 2] (
         2 $CellContext`bt1 Dt^4 - 7 $CellContext`al1^2 Dt^2 $CellContext`eps - 
         2 $CellContext`bt1 Dt^2 $CellContext`eps^2 + 
         3 $CellContext`al1^2 $CellContext`eps^3 - 
         4 $CellContext`bt1 $CellContext`eps^4)}, 0, 3, 1],
      Editable->False], ")"}], " ", "w"}], "+", 
   RowBox[{
    RowBox[{"(", 
     InterpretationBox[
      RowBox[{
       FractionBox[
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["Dt", "2"]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["eps", "2"]}]}], 
        RowBox[{"16", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["Dt", "2"], "+", 
            SuperscriptBox["eps", "2"]}], ")"}], 
          RowBox[{"5", "/", "2"}]]}]], "+", 
       FractionBox[
        RowBox[{"al1", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["Dt", "2"], " ", "eps"}], "+", 
           RowBox[{"6", " ", 
            SuperscriptBox["eps", "3"]}]}], ")"}], " ", "q"}], 
        RowBox[{"32", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["Dt", "2"], "+", 
            SuperscriptBox["eps", "2"]}], ")"}], 
          RowBox[{"7", "/", "2"}]]}]], "+", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"3", " ", 
            SuperscriptBox["al1", "2"], " ", 
            SuperscriptBox["Dt", "4"]}], "+", 
           RowBox[{"2", " ", "bt1", " ", 
            SuperscriptBox["Dt", "4"], " ", "eps"}], "+", 
           RowBox[{"12", " ", 
            SuperscriptBox["al1", "2"], " ", 
            SuperscriptBox["Dt", "2"], " ", 
            SuperscriptBox["eps", "2"]}], "+", 
           RowBox[{"14", " ", "bt1", " ", 
            SuperscriptBox["Dt", "2"], " ", 
            SuperscriptBox["eps", "3"]}], "-", 
           RowBox[{"12", " ", 
            SuperscriptBox["al1", "2"], " ", 
            SuperscriptBox["eps", "4"]}], "+", 
           RowBox[{"12", " ", "bt1", " ", 
            SuperscriptBox["eps", "5"]}]}], ")"}], " ", 
         SuperscriptBox["q", "2"]}], 
        RowBox[{"64", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["Dt", "2"], "+", 
            SuperscriptBox["eps", "2"]}], ")"}], 
          RowBox[{"9", "/", "2"}]]}]], "+", 
       InterpretationBox[
        SuperscriptBox[
         RowBox[{"O", "[", "q", "]"}], "3"],
        SeriesData[$CellContext`q, 0, {}, 0, 3, 1],
        Editable->False]}],
      SeriesData[$CellContext`q, 0, {
       Rational[1, 16] (-Dt^2 - 
         2 $CellContext`eps^2) (Dt^2 + $CellContext`eps^2)^Rational[-5, 2], 
        Rational[1, 32] $CellContext`al1 (Dt^2 + $CellContext`eps^2)^
         Rational[-7, 2] (Dt^2 $CellContext`eps + 6 $CellContext`eps^3), 
        Rational[1, 64] (Dt^2 + $CellContext`eps^2)^Rational[-9, 2] (
         3 $CellContext`al1^2 Dt^4 + 2 $CellContext`bt1 Dt^4 $CellContext`eps + 
         12 $CellContext`al1^2 Dt^2 $CellContext`eps^2 + 
         14 $CellContext`bt1 Dt^2 $CellContext`eps^3 - 
         12 $CellContext`al1^2 $CellContext`eps^4 + 
         12 $CellContext`bt1 $CellContext`eps^5)}, 0, 3, 1],
      Editable->False], ")"}], " ", 
    SuperscriptBox["w", "2"]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "w", "]"}], "3"],
    SeriesData[$CellContext`w, 0, {}, 0, 3, 1],
    Editable->False]}],
  SeriesData[$CellContext`w, 0, {
    SeriesData[$CellContext`q, 0, {
     Rational[1, 4] (-Dt^2 - 
        2 $CellContext`eps^2) (Dt^2 + $CellContext`eps^2)^
        Rational[-3, 2] + $CellContext`g^(-1), 
      Rational[-1, 8] $CellContext`al1 (Dt^2 + $CellContext`eps^2)^
       Rational[-5, 2] (Dt^2 $CellContext`eps - 2 $CellContext`eps^3), 
      Rational[1, 16] (Dt^2 + $CellContext`eps^2)^
       Rational[-7, 2] ($CellContext`al1^2 Dt^4 - 2 $CellContext`bt1 
       Dt^4 $CellContext`eps + 9 $CellContext`al1^2 Dt^2 $CellContext`eps^2 + 
       2 $CellContext`bt1 Dt^2 $CellContext`eps^3 - 
       2 $CellContext`al1^2 $CellContext`eps^4 + 
       4 $CellContext`bt1 $CellContext`eps^5)}, 0, 3, 1], 
    SeriesData[$CellContext`q, 0, {
     Rational[1, 4] $CellContext`eps (Dt^2 + $CellContext`eps^2)^
       Rational[-3, 2], 
      Rational[1, 8] $CellContext`al1 (Dt^2 - 
       2 $CellContext`eps^2) (Dt^2 + $CellContext`eps^2)^Rational[-5, 2], 
      Rational[1, 16] (Dt^2 + $CellContext`eps^2)^Rational[-7, 2] (
       2 $CellContext`bt1 Dt^4 - 7 $CellContext`al1^2 Dt^2 $CellContext`eps - 
       2 $CellContext`bt1 Dt^2 $CellContext`eps^2 + 
       3 $CellContext`al1^2 $CellContext`eps^3 - 
       4 $CellContext`bt1 $CellContext`eps^4)}, 0, 3, 1], 
    SeriesData[$CellContext`q, 0, {
     Rational[1, 16] (-Dt^2 - 
       2 $CellContext`eps^2) (Dt^2 + $CellContext`eps^2)^Rational[-5, 2], 
      Rational[1, 32] $CellContext`al1 (Dt^2 + $CellContext`eps^2)^
       Rational[-7, 2] (Dt^2 $CellContext`eps + 6 $CellContext`eps^3), 
      Rational[1, 64] (Dt^2 + $CellContext`eps^2)^Rational[-9, 2] (
       3 $CellContext`al1^2 Dt^4 + 2 $CellContext`bt1 Dt^4 $CellContext`eps + 
       12 $CellContext`al1^2 Dt^2 $CellContext`eps^2 + 
       14 $CellContext`bt1 Dt^2 $CellContext`eps^3 - 
       12 $CellContext`al1^2 $CellContext`eps^4 + 
       12 $CellContext`bt1 $CellContext`eps^5)}, 0, 3, 1]}, 0, 3, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.509133029338628*^9, 3.509133051902706*^9}}]
}, Open  ]],

Cell[BoxData["                "], "Input",
 CellChangeTimes->{{3.509621449199123*^9, 3.5096214507211514`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"a", "=", "1"}]], "Input",
 CellChangeTimes->{{3.5098862624989443`*^9, 3.5098862631220407`*^9}}],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.509886264595194*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["h1212"], "Input",
 CellChangeTimes->{{3.509886279432827*^9, 3.5098862804976187`*^9}}],

Cell[BoxData["h1212"], "Output",
 CellChangeTimes->{3.509886281087894*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"z", "\[Conjugate]"}], "//", "TraditionalForm"}]], "Input",
 CellChangeTimes->{{3.509888188467955*^9, 3.50988826327625*^9}}],

Cell[BoxData[
 FormBox[
  TemplateBox[{"z"},
   "Conjugate"], TraditionalForm]], "Output",
 CellChangeTimes->{3.509888232340049*^9, 3.509888264168685*^9}]
}, Open  ]]
},
WindowSize->{1543, 1025},
WindowMargins->{{0, Automatic}, {0, Automatic}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
PrintingOptions->{"PaperOrientation"->"Landscape",
"PaperSize"->{1299.96, 999.7199999999999}},
FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (November 6, \
2010)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 461, 13, 27, "Input"],
Cell[1043, 37, 951, 32, 49, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2031, 74, 129, 2, 27, "Input"],
Cell[2163, 78, 1245, 37, 67, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3445, 120, 233, 4, 27, "Input"],
Cell[3681, 126, 1826, 55, 58, "Output"]
}, Open  ]],
Cell[5522, 184, 103, 1, 27, "Input"],
Cell[CellGroupData[{
Cell[5650, 189, 280, 7, 27, "Input"],
Cell[5933, 198, 669, 22, 50, "Output"]
}, Open  ]],
Cell[6617, 223, 945, 30, 27, "Input"],
Cell[CellGroupData[{
Cell[7587, 257, 343, 9, 27, "Input"],
Cell[7933, 268, 2798, 81, 43, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10768, 354, 123, 2, 27, "Input"],
Cell[10894, 358, 1276, 39, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12207, 402, 129, 2, 27, "Input"],
Cell[12339, 406, 1291, 38, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13667, 449, 131, 2, 27, "Input"],
Cell[13801, 453, 2524, 76, 43, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16362, 534, 129, 2, 27, "Input"],
Cell[16494, 538, 3005, 86, 45, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19536, 629, 518, 15, 27, "Input"],
Cell[20057, 646, 448, 14, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20542, 665, 368, 8, 27, "Input"],
Cell[20913, 675, 4198, 130, 106, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25148, 810, 147, 3, 27, "Input"],
Cell[25298, 815, 1042, 33, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26377, 853, 129, 2, 27, "Input"],
Cell[26509, 857, 1398, 42, 61, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27944, 904, 127, 2, 27, "Input"],
Cell[28074, 908, 3651, 100, 127, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31762, 1013, 124, 2, 27, "Input"],
Cell[31889, 1017, 295, 7, 27, "Output"]
}, Open  ]],
Cell[32199, 1027, 1586, 49, 27, "Input"],
Cell[CellGroupData[{
Cell[33810, 1080, 464, 12, 27, "Input"],
Cell[34277, 1094, 15960, 438, 78, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[50274, 1537, 273, 6, 27, "Input"],
Cell[50550, 1545, 4743, 142, 55, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55330, 1692, 699, 18, 27, "Input"],
Cell[56032, 1712, 4815, 143, 55, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[60884, 1860, 125, 2, 27, "Input"],
Cell[61012, 1864, 4808, 146, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[65857, 2015, 1319, 41, 27, "Input"],
Cell[67179, 2058, 1236, 38, 49, "Output"]
}, Open  ]],
Cell[68430, 2099, 3371, 97, 58, "Input"],
Cell[CellGroupData[{
Cell[71826, 2200, 2992, 91, 88, "Input"],
Cell[74821, 2293, 181, 5, 27, "Output"]
}, Open  ]],
Cell[75017, 2301, 380, 11, 27, "Input"],
Cell[CellGroupData[{
Cell[75422, 2316, 450, 12, 27, "Input"],
Cell[75875, 2330, 4713, 136, 99, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[80625, 2471, 260, 7, 27, "Input"],
Cell[80888, 2480, 20544, 616, 385, "Output"]
}, Closed]],
Cell[101447, 3099, 3339, 96, 82, "Input"],
Cell[CellGroupData[{
Cell[104811, 3199, 128, 2, 27, "Input"],
Cell[104942, 3203, 1727, 50, 49, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[106706, 3258, 131, 2, 27, "Input"],
Cell[106840, 3262, 1162, 34, 52, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[108039, 3301, 419, 11, 27, "Input"],
Cell[108461, 3314, 807, 26, 59, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[109305, 3345, 1028, 30, 27, "Input"],
Cell[110336, 3377, 1178, 37, 54, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[111551, 3419, 158, 3, 27, "Input"],
Cell[111712, 3424, 4086, 122, 99, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[115835, 3551, 392, 10, 27, "Input"],
Cell[116230, 3563, 3462, 109, 99, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[119729, 3677, 127, 2, 27, "Input"],
Cell[119859, 3681, 2930, 85, 54, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[122826, 3771, 235, 5, 27, "Input"],
Cell[123064, 3778, 2129, 64, 67, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[125230, 3847, 272, 7, 27, "Input"],
Cell[125505, 3856, 1020, 29, 52, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[126562, 3890, 293, 6, 27, "Input"],
Cell[126858, 3898, 902, 28, 52, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[127797, 3931, 160, 3, 27, "Input"],
Cell[127960, 3936, 3189, 98, 95, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[131186, 4039, 289, 8, 27, "Input"],
Cell[131478, 4049, 3216, 94, 95, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[134731, 4148, 131, 2, 27, "Input"],
Cell[134865, 4152, 2647, 78, 89, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[137549, 4235, 195, 4, 27, "Input"],
Cell[137747, 4241, 855, 26, 49, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[138639, 4272, 160, 3, 27, "Input"],
Cell[138802, 4277, 3241, 96, 88, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[142080, 4378, 333, 9, 27, "Input"],
Cell[142416, 4389, 1666, 46, 54, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[144119, 4440, 193, 4, 27, "Input"],
Cell[144315, 4446, 843, 26, 49, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[145195, 4477, 157, 3, 27, "Input"],
Cell[145355, 4482, 3297, 97, 88, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[148689, 4584, 331, 9, 27, "Input"],
Cell[149023, 4595, 2464, 68, 53, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[151524, 4668, 195, 4, 27, "Input"],
Cell[151722, 4674, 902, 27, 52, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[152661, 4706, 160, 3, 27, "Input"],
Cell[152824, 4711, 3362, 102, 95, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[156223, 4818, 165, 3, 27, "Input"],
Cell[156391, 4823, 571, 17, 52, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[156999, 4845, 333, 10, 27, "Input"],
Cell[157335, 4857, 786, 26, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[158158, 4888, 445, 12, 27, "Input"],
Cell[158606, 4902, 322, 9, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[158965, 4916, 356, 9, 27, "Input"],
Cell[159324, 4927, 2889, 81, 53, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[162250, 5013, 158, 4, 27, "Input"],
Cell[162411, 5019, 2772, 79, 53, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[165220, 5103, 275, 8, 27, "Input"],
Cell[165498, 5113, 2486, 70, 53, "Output"]
}, Open  ]],
Cell[167999, 5186, 772, 24, 27, "Input"],
Cell[CellGroupData[{
Cell[168796, 5214, 208, 5, 27, "Input"],
Cell[169007, 5221, 2471, 71, 62, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[171515, 5297, 236, 6, 27, "Input"],
Cell[171754, 5305, 2808, 80, 62, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[174599, 5390, 492, 15, 44, "Input"],
Cell[175094, 5407, 2893, 79, 58, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[178024, 5491, 301, 9, 53, "Input"],
Cell[178328, 5502, 3492, 97, 68, "Output"]
}, Open  ]],
Cell[181835, 5602, 1429, 46, 27, "Input"],
Cell[CellGroupData[{
Cell[183289, 5652, 279, 7, 27, "Input"],
Cell[183571, 5661, 5644, 145, 58, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[189252, 5811, 394, 11, 53, "Input"],
Cell[189649, 5824, 5173, 136, 58, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[194859, 5965, 278, 7, 27, "Input"],
Cell[195140, 5974, 10835, 272, 158, "Output"]
}, Open  ]],
Cell[205990, 6249, 110, 1, 27, "Input"],
Cell[CellGroupData[{
Cell[206125, 6254, 119, 2, 27, "Input"],
Cell[206247, 6258, 70, 1, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[206354, 6264, 99, 1, 27, "Input"],
Cell[206456, 6267, 74, 1, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[206567, 6273, 158, 3, 27, "Input"],
Cell[206728, 6278, 154, 4, 31, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
